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Introduction 


The objective of the database development task is to produce a propulsion database 
which is easy to use and modify while also being comprehensive in the level of detail 
available. The database is to be available on the Macintosh computer system. The 
task is to extend across all three years of the contract. Consequently, a significant 
fraction of the effort in this first year of the task was devoted to the development of 
the database structure to ensure a robust base for the following years’ efforts. 
Nonetheless, significant point design propulsion system descriptions and 

parametric models were also produced. 

It is desirable that the database be usable for both the preliminary analysis of whole 
classes of propulsion systems (e.g., a booster engine using LOX/RP for a wide range 
of thrust levels) and for the analysis of existing propulsion systems (e.g., SSME, RD- 
170, etc.). Since it would be very difficult to fulfill both these uses with only one 
database structure, it was decided to develop two separate tools, one for each type of 

usage. 

The first usage (analysis of classes of propulsion systems) is normally implemented 
by a series of unrelated tools written as spreadsheet models, or as dedicated code 
(most commonly written in Fortran) and running on mainframes, workstations, or 
PCs. These tools normally can not communicate with each other and are written 
without common structure - they calculate weight breakdowns to different sets of 
components even for similar engine types and calculate performance in different 
manners. This usage requires large amounts of calculations, methods of data 
presentation unique to each propulsion type (and sometimes to different engine 
classes within a type), and benefits from automated parametric data generation and 
automated preparation of graphs (e.g., weight versus mixture ratio). 

The commercial tool type which comes closest to meeting these needs is a 
spreadsheet, particularly one with good graphing capabilities, an extensive 
scripting or macro language, and the ability to access external code written in 
different computer languages (especially Fortran). Both Resolve and Excel were 
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considered and Resolve was chosen because its scripting language is extensive and 
very easy to use even by casual users, and because its charting capabilities 
(including the scripting of all elements of each chart) were more extensive than 
Excel (at least until Excel 4 which was not available to the author at the time). It 
subsequently became known that Resolve also puts fewer limits on the use of 
Fortran externals than Excel. This second usage type will be referred to throughout 
the rest of the report as a “parametric propulsion database”. 

The second usage can be implemented with a classic database structure where a 
large number of pieces of information (as numbers, text blocks, and 
pictures/graphics) about each of a number of specific existing or conceptual 
propulsion systems is stored. The information describes the single design point 
engine with some information about operation at off-design conditions. Each 
propulsion system can be stored as a record with the individual pieces of 
information stored as fields within the record. Minimal calculation is needed, but 
the ability to sort, group, and aggregate (i.e., all engines using RP with vacuum 
thrust above a specified number) is needed. Consequently, for this usage, referred to 
throughout the rest of the report as a “propulsion system database” a commercial 
database was chosen. Both 4th Dimension and FileMaker Pro were considered. 
FileMaker Pro was chosen because it is much easier to change, both in structure 
and output, even by casual users. It is also much more readily available because of 
its much lower cost, cross platform capability (Macintosh and PC with Windows), 
and lack of need of dedicated, experienced users. 

Each of the two propulsion databases, parametric propulsion database and 
propulsion system database, are described in the rest of the report. The descriptions 
include a user’s guide to each code, write-ups for models used, and sample output. 
Because of the large number of pages of figures in relation to the length of text, this 
report is structured with the text all at the front and then followed by the 90 pages of 
figures relating to the parametric propulsion database, which is in turn followed by 
the 151 pages of figures relating to the propulsion system database. 

An appendix includes three technical notes describing how to attach external code 
written in Fortran to both Resolve and to Excel. These procedures were developed 
during this year’s effort with the Excel work done on Rocketdyne resources and the 
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Resolve work done on a combination of contract and Rocketdyne resources. 
Interactions with tech support at Claris (the publisher of Resolve), Microsoft (the 
publisher of Excel), and at the publisher of the Macintosh Fortran compiler used, 
indicate that the use of Fortran externals with either Resolve or Excel breaks new 
ground. This capability will be extremely useful for the parametric propulsion 
database throughout the rest of this effort and should be very useful in general to 
anyone within the aerospace community using Macintosh computers. 
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Parametric Propulsion Database 

The parametric propulsion database was developed using the Macintosh 
spreadsheet Resolve, version l.lvl (published by Claris). It was developed on a 
Macintosh II fx running system 7 with the tuneup kit. It was developed using an 
Apple 13 inch color monitor. It has been checked in black and white mode, on a 
limited number of other Macintosh computer types, and with system 6.0.5. Two 
problems were encountered during these checks: some color choices were changed 
to work in black and white mode, and the Fortran externals were recompiled in two 
forms so they would work on Macintoshs without math coprocessors, but would also 
take advantage of the coprocessors when present. 

The parametric propulsion database consists of two files and one folder (which in 

turn contains three files): 

Parametric Database 

Library 

Externals 

OHSCC 
ORPGG 
Nuclear Rkt 


The file “Library” and the folder “Externals" must be in the same folder as the 
application “Claris Resolve”. The file “Parametric Database” can be placed 
anywhere. None of these file or folder names can be changed because they are used 
explicitly by name in calls by scripts in the database. The file “Parametric Database” 
is a Resolve spreadsheet which is double-clicked to run the parametric propulsion 
database. It uses the file “Library” to update its worksheet script. “Library” contains 
a number of functions which are called by other scripts. The file Library is 
actually only needed when changes are made to the worksheet script. The program 
will run without “Library” (although two error messages will occur) but changes 
cannot be made, even temporarily, to the worksheet script. The folder “Externals” 
contains the three compiled Fortran codes (with embedded hooks written in C - see 
Appendix) currently used by the database. 
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The model renuires the fonts “Bookman”, “New Century Schoolbook”, and 
“Helvetica” be installed (Postscript or True Type). If they are not available then most 
screens and output will be difficult to read and many words will not be fully visible 
in their defined columns. All three of these fonts came with the various Apple 
LaserWriters (and many other printers) and are readily available. The use of Adobe 
Type Manager (ATM) or True Type (with the True Type versions of the fonts) is 
highly recommended to improve the readability of the screen. 


To run the database simply double-click on the file “Parametric Database . The 
current version (version 1.4, 5 April 1993) contains the following models. 

Solid Fuel Boosters 

Large Motors (328K-8.9M lbf) using ASRM (ANB3652) propellant 
Large Motors (328K-8.9M lbf) using neutralized Mg (DL-H435) propellant 
Medium Motors (62K-328K lbf) using neutralized Mg (DL-H435) propellant 
Large Motors (328K-8.9M lbf) using non-chlorine (PGN/AN/AL) propellant 

Hybrid Boosters 

Large Motor (380K-21M lbf) using O 2 as oxidizer and HTPB and escorez as 

fuel - pressure fed 
Cryogenic Engines 

Large (100k-2M lbf) LOX/H 2 engines using staged combustion cycles 
Hydrocarbon Engines 

Large (500K-3M lbf) LOX/RP engines using gas generator cycles 

Nuclear Thermal Propulsion 

NERVA derived prismatic fuel solid core rocket. 

The solid fuel rocket booster and hybrid booster models are implemented as 
spreadsheet models, while the liquid engines and the nuclear engine are 
implemented as Fortran external functions. 

The basic philosophy of the model is to navigate a large spreadsheet by means of 
buttons that the user “clicks”. The buttons invoke scripts which change what portion 
of the spreadsheet is displayed (i.e., moves to the next “screen”), change the screen 
scaling to make the display fit, write spreadsheet formulas and data, or call 
external code. The buttons are where most of the “action” occurs and where most of 
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the calculation is done. The model is structurally dependent on scripting and the 
use of Fortran externals. About 60 pages of scripts are used and over 130K of 

compiled Fortran external code is used. 

Code Overview 

Figure 1 shows the result of double-clicking the file “Parametric Database”. 
Pressing the continue button takes the user to Figure 2 which is the main 
navigation screen. Only the Cryogenic, Hydrocarbon Fuels, Solid Fuels, Hybrid RB, 
and the Nuclear Thermal buttons are currently active. The Return button, which is 
present on all screens, always returns to the previous screen. 

Tracing the models under the Chemical label, pressing the Cryogenic button brings 
up Figure 3 and pressing the Hydrocarbon Fuels button brings up Figure 4. 
Pressing either of the Large LOX/H 2 or Large LOX/RP buttons brings up Figure 5. 
The figure will be slightly different depending on which button was pressed. Since 
the LOX/H 2 and LOX/RP models are implemented as external Fortran code, there 

are no equations under the numbers in the cells as would be expected in a 
spreadsheet. Because the same piece of spreadsheet “real estate” (i.e., the same 
cells) are used for both the LOX/H 2 and the LOX/RP models, the Calculate button in 

the upper left side of the screen must be pressed to produce numbers for the weights, 
lengths and performance. The independent variables, and the ranges through 
which each can be varied and remain within the validity of the model, are shown in 
the upper part of the screen on the yellow background. To examine a new case, 
change any or all of these independent variables and then press the calculate button. 
New values for the results will appear in the cells. 

Pressing the “English Units” button changes the button name to “Metric Units” and 
changes the results (only) to metric units. Pressing the button a second time 
reverses the process. The Print (Report) button sets up for printing the page (without 
buttons) in portrait mode and stripped of color. The Print (Briefing) button sets up 
for printing the page in landscape mode and stripped of color. These buttons work 
the same on other screens. The page setup dialog box will always come up because 
Resolve script does not have a means to specify landscape versus portrait mode, so 
the user must click the appropriate icon. 
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The model can be used to generate parametric data and produce a table and selected 
graphs of that data. To do so, press the Graphs button and the parametric 
generation screen of Figure 6 will appear. This screen shows the variables which 
can be used for parametrics as titles within yellow buttons. The parametrics 
possible are one dimensional, only one variable can be varied at a time. To make a 
parametric run using one of the independent variables that are shown on the yellow 
buttons, choose a range of the variable to vary. Input its starting value and its 
ending value in the column "Variable to Change" (within the limits that are shown 
under each yellow button), along with the number of discrete points (11 maximum) 
to calculate (the variable values must be evenly spaced throughout the range which 
is why only the number of points, as opposed to the actual values, is input). 

The column "Other Independent Variables" shows the values that will be used 
during the parametric run for the variables other than the one being varied. Use 
this column to change these values to those desired for the parametric run. These 
values start as the values from the previous screen, but they will change as 
parametrics are generated taking on the last value of the range used if they have 
been used in a previous parametric run. They should always be checked. When 
satisfied that the input is as desired, then press the yellow button that has the name 
of the variable that was chosen to vaiy. Pressing that button actually replaces the 
chosen independent variable in the screen of Figure 5, reads out the results, places 
them into a table and graphs, changes the variable again, reads out the results 

again, etc. 

After the yellow button is pressed to generate the parametric run, a portion of 
Figure 7 appears. This table can be printed (Figure 8) and graphs can be 
individually accessed by pressing the yellow Weight, Lengths, and Performance 
buttons. Examples of the graphs are shown as Figure 9-11 and an overview of the 

table and graphs is shown in Figure 12. 

The route for the Solid Fuels goes back to Figure 2 and when the Solid Fuels button is 
pressed, Figure 13 is seen. These four buttons invoke the different models used for 
the different solid rocket boosters. They actually use a script and rewrite the 
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equations in the cells shown in Figure 14. The same piece of spreadsheet “real 
estate” is used for each model (except the Medium Motor model) but with new 
equations, titles and words for each different model. Because the solids use 
spreadsheet models, when an input is changed in Figure 14 the result changes 
immediately and there is no “Calculate” button. The “English Units” button changes 
to “Metric Units” when pressed and changes the output (only) to metric. It reverts to 
“English Units” when pressed again. 

If the Graphs button is pressed, Figure 15 appears. This screen allows the user to 
generate parametric tables and graphs by varying any of the independent variables 
as was described for the LOX/H 2 and the LOX/RP models. The results of the 
parametric run appear after pressing the yellow button with the title of the variables 
chosen and are seen as a portion of Figure 16. The table can be printed as shown in 
Figure 17, an d the graphs are accessed, individually, by pressing the Weights, 
Lengths, Mass Fraction, or Performance buttons. They can be printed when 
accessed as shown in Figures 18-21. Figure 22 shows an overview of the table and 

graphs. 

The route of the hybrid rocket booster model goes back through Figure 2 where 
pressing the Hybrid EB button brings up Figure 23. The buttons on Figure 23 work 
the same as those described for the other models. Pressing the Graphs button brings 
up Figure 24 where parametric runs can be made as described for the other models. 
After generating a parametric run a portion of Figure 25 appears. The table can be 
printed or the graphs of Figure 26 accessed and printed as shown in Figures 27-31. 

Tracing the Nuclear Thermal button, pressing it brings up Figure 32 where only the 
Solid Core button is currently active. Pressing Solid Core goes to Figure 33 where 
only the Prismatic Fuel button is active. Pressing it goes to the model for the NERVA 
derived nuclear thermal rocket (Figure 34). This model uses an external Fortran 
code and thus there are no equations under the numbers in the cells. Instead the 
user changes the inputs as desired and then presses the “Calculate” button to 

produce changes in the output. 
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JfflHiviriiml Models 


Solid Fuel Models 

The design equations are the result of a multivariate regression of a matrix of 
designs produced by Thiokol’s Solid Rocket Motor Automated Design Program 
(ADP). The results of these equations produce solid rocket motor preliminary design 
data within the ranges over which the regression was performed. There are a 
number of assumptions underlying the motor equations. These are factors which 
were held fixed during the creation of the database upon which the design equations 

are based. 


These equations assume T650 graphite epoxy filament wound cases. The web 
fraction, or proportion of the case diameter filled with propellant, was held constant 
at 0.75. Also held constant were the burn rate exponents, propellant densities, and 
the ratio of throat to port diameters for the respective propellant types. Nozzle 
submergence (defined as the nose to boss distance divided by the nose to nozzle exit 
distance) varied from 6 percent to 30 percent. The nozzle length reported in the 
design equations is from the aft case boss interface to the end of the nozzle, i.e., 
external nozzle length. A finocyl grain design was used for all propellant types. The 
finocyl design has a finned grain (typical of the Shuttle Solid Rocket Motor) for part 
of the port length and a simple cylindrical port for the remainder of the port length. 
Silica filled EPDM internal case insulation was used. The booster elements were 
divided into six categories: nose cone, external insulation, forward skirt and 
attachment, aft skirt and attachment, separation system, and miscellaneous which 
includes electronics, instrumentation, raceway, thrust vector control system, etc. 


The motors were all designed to a thrust trace similar to that of Figure 35 (which is 
that of the current space shuttle solid rocket boosters). 

The parametric design equations were formulated as follows: 

• A proprietary Thiokol design program called ADP (Automated Design 
Program) was used to generate a matrix of designs based on a set of input 
data spanning predetermined parameter ranges. 
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• The ADP determined a design for each set of the input parameters by 
using the in-house design codes for the case, insulation, nozzle and 
ballistics and the NASA-LEWIS thermochemical program. 

• Once the matrix of designs was created the Number Cruncher statistics 
package was used to do a multivariate regression on the independent and 
dependent variables. 

The generation of the parametric equations followed two steps. First, the logarithms 
of each independent variable and the dependent variables were taken. A regression 
was performed on the logarithms resulting in a factor with terms to various powers. 
This factor was used in a linear regression along with other terms to give an 
expression for the dependent variable in terms of the independent variables. 
Regression variables were based upon the physics of the problems plus input from 
Number Cruncher as to what the most meaningful variables would be. 

ASRM Propellant. The ASRM (ANB3652) type propellant utilizes aluminum as the 
primary fuel with an ammonium perchlorate (AP) oxidizer. The normal 
formulation for ASRM propellant is shown in Figure 36. The predominant exhaust 
species produced by this propellant at the nozzle exit plane are shown in Figure 37. 
This propellant is non-neutralizing with an exhaust containing approximately 21% 
hydrogen chloride. Figures 38 and 39 show sample model outputs, Figure 40 shows 
the equations used, and Figure 41 shows the script used to implement the model. 

Neutralized Mp Propellant. The DL-H435 propellant is a clean propellant utilizing 
magnesium instead of aluminum as the primary fuel in order to reduce or 
eliminate the hydrogen chloride (HC1). Reference 1 contains a full discussion of this 
propellant. Reference 1 also shows, by means of small motor test results, that this 
propellant will fully neutralize the HC1 byproduct (see Reference 1, Table IV) in the 
exhaust plume. The nominal formulation for DL-H435 magnesium clean propellant 
is shown in Figure 42. The predominant exhaust species produced by the DL-H435 
propellant at the nozzle exit plane are shown in Figure 43. Most of the neutralizing 
reaction occurs in the plume. The amount of the neutralization is a function of 
ambient conditions and mission parameters. The species at the nozzle exit plane, 
however, represents a minimum estimate of total neutralization of HC1. Figures 44 
and 45 show sample model outputs, Figure 46 shows the equations used, and Figure 
47 shows the script used to implement the model. 



Earlier in the contract a preliminary set of equations was generated using a 
different set of data and different input ranges. Although the new equations replace 
the old ones and the new model breaks the weights into different sets of components, 
the old model went to a lower thrust level. Consequently, the lower thrust results are 
also included in the parametric database as the “Medium Motor” button for the 
neutralized Mg propellent which is the one case where they are available. Figures 
48 and 49 show sample outputs and Figure 50 shows the script used to implement 

the equations. 

Mnn-Chlorina Prnnellant. The non-chlorine (PGN/AN/AL) propellant substitutes 
ammonium nitrate for ammonium perchlorate as the primary oxidizer in order to 
eliminate the halogen byproducts of combustion associated with the use of 
ammonium perchlorate (AP) oxidizer and uses PGN (PolyGlycidalNitrate), an 
energetic binder, to achieve performance close to the current RSRM propellant. This 
propellant is in the development stage. Thiokol has overcome the migor impediment 
to using PGN binder in large motors, but this type of clean propellant is still 
developmental. The nominal formulation for non-chlorine propellant is shown in 
Figure 51. The predominant species produced by the non-chlorine propellant at the 
nozzle exit plane are shown in Figure 52. Figures 53 and 54 show sample model 
outputs, Figure 55 shows the equations used, and Figure 56 shows the script used to 

implement the equations. 

Hybrid Rocket Booste r Model 

The hybrid model used included a T660 graphite epoxy filament wound case for the 
fuel grain and an aluminum 2219 oxidizer tank with a pressure feed system. The 
fuel is a combination of HTPB polymer and escorez. The escorez is used to increase 
the fuel’s density. The propellants are shown in Figure 57. Figure 58 shows the 
m ass fractions of the exhaust species at the nozzle exit for both a mixture ratio (O/F) 
of 1.8 and 2.8. One major advantage of a hybrid system can be seen from the figure: 
there are no chlorine or chlorine compounds in the exhaust. This alleviates many of 
the environmental concerns normally associated with solid rocket motors. The 
hybrid system cam also be readily shut down and restarted. 
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The regression process described for the solid models was also used by Thiokol for 
the hybrid designs, although the variables in some cases were different. One notable 
difference was that case diameter was a dependent variable in the hybrid model, 
whereas it was an independent variable in the solid models. A special grain design 
must be used in the hybrid designs. This grain was driven by the performance 
requirements and required a specific diameter just to fit the grain geometry. Two 
new independent variables were added: the maximum oxidizer flux and the 
mixt ure ratio (oxidizer to fuel ratio). In a solid rocket motor there is no oxidizer flux 
and the oxidizer/fuel ratio is invariant, fixed by the propellant formulation. 

The hybrid model was simpler than the solid models in that all of the subcomponent 
weights and lengths were not calculated. However, the nozzle, total tank/case, 
motor, and stage lengths, as well as O 2 and fuel used weights were calculated. The 

motor mass fraction was also calculated empirically, allowing the calculation of 
total motor weight. The same stage component weight relations were used for both 
the solid and hybrid models. Figures 59 and 60 show sample model outputs, Figure 
61 shows the equations used, and Figure 62 shows the script used to implement the 

equations. 

Liquid an d Nuclear Models 

Pprfnmnance. The LOX/H 2 , LOX/RP, and Nuclear Thermal models all use the 
same approach for performance prediction. These models employ the JANNAF 
Simplified Performance Prediction Methodology detailed in CPIA Publication 246. 
Starting from ODE (one-dimensional equilibrium) thermochemical codes, tables of 
theoretical specific impulse and C-star are prepared versus chamber pressure, 
mixture ratio, area ratio and inlet propellant enthalpy. When the system is 
modeled, a table-look-up is used to obtain the theoretical Isp and C-star values. The 

chamber temperature is used in place of mixture ratio for cases where there is no 
mixture ratio (e.g., H 2 in the nuclear model). 

Performance efficiency terms are then used to represent the various loss 
mechanisms present within the engine system. The method uses the following 

efficiency terms: 
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C-star: A measure of the combustion and mixing efficiency in the 
combustor. How much of the propellant’s chemical energy is 
actually available for heat. 

Divergence: A measure of the geometric losses associated with a finite 
nozzle having a finite turning angle. How much of the exhaust 
momentum is lost by not being turned parallel to the nozzle axis. 

Boundary Layer A measure of the drag momentum loss caused by the 
viscous bo undar y layer within the thrust chamber. 

Kinetic: A measure of kinetic losses during the expansion process. 

Rocketdyne uses a table-look-up to compute kinetic losses based on chamber 
pressure (P c ), mixture ratio, throat area, and area ratio. The tables used are the 

results of detailed ODK (one-dimensional kinetic) code runs for the particular 
propellant combination (or heated H 2 ) being studied. For divergence losses, a curve- 
fit correlation is used which relates divergence efficiency to Pc, nozzle percent 
length, thrust, and area ratio. The boundaiy layer losses are estimated by curve fits 
of the results of rigorous boundary-layer codes (such as BLIMP or TBL). The C-star 
losses are input based on the results of detailed cycle balances. 

The other effects of the thermodynamic cycle is input by using detailed cycle 
balances and then using the resulting thrust chamber mixture ratio instead of the 

engine mixture ratio. 

For the specific LOX/H 2 , LOX/RP, and Nuclear Thermal performance models used 
here, the further effect effects of the thermodynamic cycle throughout the range of 
variables was accounted for by forcing the result at a single design point through a 
known value (e.g., SSME, F-1A), then using a factor on the delivered specific 
impulse at other conditions. 

Weight. The weight for the LOX/H 2 model is based on the reference SSME design 
point. The individual component weights are then scaled with flows, thrust, P c , 
area ratio, etc. The scaling methodology is based on engineering parameters and 
physical quantities. It employes neither point designs nor curve fits. 
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The weight for the LOX/RP model is based on the reference F-1A design point. The 
individual component weights are then scaled with flows, thrust, Pc» area ratio, etc. 
The scaling methodology is based on engineering parameters and physical 
quantities. It employes neither point designs nor curve fits. 

The weights for the nuclear thermal model are based on four design points (at 25K, 
50K, 75K, and I00K) for the reactor and additional components. These points were 
then incorporated into a table lookup and interpolation routine. 

T.imiid Models. A model of a LOX/H 2 engine using a staged combustion cycle was 
made based on SSME experience, and scaling a set of weights based on a SSME 
baseline. Figures 63 and 64 show examples of model output. 

A model of a LOX/RP engine using a gas generator cycle was made based on F-l and 
F-iA experience, and scaling a set of weights based on F-1/F-1A weights. Figures 65 
and 66 show examples of the model output. 

Nnclgar TWmftl Rocket ModeL The design work done at Rocketdyne and 
Westinghouse over the past few years, including work for NASA/LeRC during the 
last year, has produced a series of detailed conceptual designs for nuclear thermal 
rockets based on the NERVA experience base. Those design results were included in 
a table and combined with performance data to produce a model for a NERVA 
derived nuclear thermal rocket. The model is based on using a prismatic fuel form. 
Because this is a concept derived from a specific reactor design and using one fuel 
type (graphite matrix with UC 2 beads with ZrC protective fuel element coating), 

temperature is fixed. Only thrust, chamber pressure, and nozzle area ratio are 
variable. Also the thrust range is limited from 25,000 to 100,000 lbf. Figure 67 shows 
a sample output of the model. 

Chan gin g the W orksheet Script 

The worksheet script is a collection of functions which are called by other scripts. It 
is essentially a library. To make changes to the worksheet script, even temporarily, 
requires that the file library” be modified. The procedure is: 
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1. Select any spreadsheet cell 

2. Go to the “Script” item in the menu bar and select “Unload Script 

and “Library” ...... 

If “Unload Script” is grayed in the menu bar then skip this step 

3. Go to the “Script” item in the menu bar and select “Open Script...” 

4. Use the resulting dialog box to find and open the file “Library” 

6. Make the desired changes 

6. Go to the “File” item in the menu bar and select “Save 

7. Go to the “File” item in the menu bar and select “Close” 

8! Go to the “Script” item in the menu bar and select “Worksheet 

Script” 

9. Highlight the following four lines with the cursor: 

On Activate 

Attach Script “Library” 

Get Script “Library” 

End Activate 

10. Go to the “Edit” item in the menu bar and select “Copy” 

11. Go to the “Edit” item in the menu bar and select “Select All” 

12. Press “Delete” key 

13. Go to the “Edit” item in the menu bar and select “Paste 

14. Go to the “File” item in the menu bar and select “Close” 

15. Press any active button which forces the program to attach the file 
“Library” and make it the current “Worksheet Script”. 
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Propulsion System Database 

The propulsion system database was developed using the Macintosh database 
FileMaker Pro, version 2.0vl (published by Claris). It was developed on a Macintosh 
II fx running system 7 with the tuneup kit and using an Apple 13 inch color 

monitor. 

The propulsion system database consists of two files: “Prop System DB and Prop 
System DB-Pictures”. They can be placed anywhere. The names of the two files must 
not be changed since the first is used as a look-up file by the second, and the second 
is referenced by name in scripts in the first. “Prop System DB” is the main file which 
contains all the data except two picture fields for each record. The two picture fields 
were separated because they are often scanned images using significant amounts of 
memory, and also by having two files, even when many more propulsion systems 
are included in the database, the FileMaker limit of 32 Meg per individual file 

should be avoidable. 

The engine systems currently included in the propulsion system database are: 

Space Transportation Main Engine (STME) 

F-l 

F-1A 

J-2 

J-2S 

SSME 

RD-170 

Integrated Modular Engine (IME) 

Space Shuttle Redesigned Solid Rocket Motor (RSRM) 

NERVA Derived NTR 

To run the propulsion system database double-click on the file “Prop System DB . 
The opening screen of Figure 68 will appear. Press Continue and Figure 69 will 
appear. Pressing on any button will find all propulsion systems of the type 
represented by the button. For example, pressing “Cryogenic” will find only the 
cryogenic engines, pressing “Chemical” will find the cryogenics plus the solids, 
plus the hybrids, etc. Pressing “Propulsion Systems” will find all the records in the 
database. If the user presses a button for which there are no records of that type, a 
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dialog box will appear and if Continue or Cancel is pressed, all records will be found 
instead of the null set of zero records expected. This is a quirk of FileMaker Pro. 



The code is broken into five general classes of propulsion systems based on needing 
different reports for each kind of propulsion system: Liquids, Solids, Hybrids, 
Nuclear, and Exotic. The layouts for Liquids must be different from those for Solids 
since many parameters of one have no meaning for the other (e.g., mixture ratio, 
grain design). This structure is transparent to the user if the buttons supplied on 
every screen for navigation are used. In other words, when a liquid engine is 
selected and the Data Entry button is pressed, the user will go to the liquid data entry 
screen, not the ones available for solids, hybrids, etc. (which are different). 
Nonetheless, the actual internal structure is fairly complex and extensive because of 
the need for different report and entry formats. There are 160 layouts and 71 scripts 

used. 

The result of pressing “Propulsion Systems” in the Main Menu (Figure 69) is shown 
in Figure 70 which is also the list of all currently available propulsion systems. An 
example of using the code is to select one of the propulsion systems from the figure 
(i.e., click on the engine name) and then press one of the five buttons across the top 
of the screen. The Print button simply prints the page (and works the same on all 
other layouts where it is present), the More Data button shows two additional lines of 
information for each propulsion system (thrust, specific impulse, weight, length, 
width, etc.) and is intended as a short technical summary of the systems in the 
database. The button with the “org chart” icon returns to the Main Menu (Figure 
69). The Data Entry button goes to a set of layouts specifically designed to make data 
entry easy by gathering all the fields of data for one system in one place and 
eliminating any that are calculated from other data. 

The Reports button goes to a screen like Figure 71. This screen shows the individual 
reports (layouts) available for each propulsion system. The reports are arranged into 
two sets - each containing the same information, but with some differences in 
arrangement - with one set structured for portrait mode presentation and called 
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“Reports”, and the other structured for landscape mode presentation and called 
“Briefing Charts”. 

Typical use of the code would be to go to the Main Menu screen (Figure 69), press 
“Propulsion Systems”, choose an engine from the resulting Summary screen 
(Figure 70), press the Reports button and then use Figure 71 to look at the data (and 
print any of interest) by pressing individual reports. For example, pressing Engine 
Performance 1” brings up the layout in Figure 72 (for a STME as an example). From 
this (or any other) report the user can print the report, return to the Reports screen, 

or return to the Main Menu. 

After examining the various reports, the user might return to the Summary screen 
(Figure 70) and select another propulsion system and then look at its reports, and so 

on. 


Figures 73-82 present the output for each of the currently available systems. 

Figure 83 shows the field definitions for all fields in the file “Prop System DB”. 
Figure 84 shows the field definitions for all fields in “Prop System DB-Pictures”. Note 
that all of the fields in “Prop System DB-Pictures” except “Engine Name” and two 
picture fields are look-up fields using the data from “Prop System DB” through the 
field “Engine Name”. It is important to remember to force a relook-up in “Prop 
System DB-Pictures” if changes are made to the file “Prop System DB” since relook¬ 
ups are not automatic in FileMaker Pro. 
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Figure 2. Main Navigation Screen 

















































































































































Figure 3. Current Cryogenic Models 
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Figure 4. Current Hydrocarbon Models 







i. V\ # * '''• ' 



Print (Report) 








ORIGINAL PAGE IS 

OF POOR QUALITY 


OF POC 

Print (Briefing) 




l3SSSs^S^i«{s 

|>».-su:-;?>}: ; «8:;svs 



Graphs 








■todepiildenlT'e^^ 

MajorVariables 

Vacuum Thrust, Mbf 
Chamber Pressure, psia 
Mixture Ratio. O/F 
Maximum Area Ratio 


:r : 

iti\v M- j.Uj-v 


Value 


|;4vPVwtl$;&4?s$ 

*■:;•»,• S tsaKasSRfttSS; aftKJWJSK&Sa 




<<»»■ .- •*■■ 


512.845 

3,277.0 

6.011 

77.0 


Valid Range: 




yr-y.'.tx,'- •:-:■«• 


100 to 2.000 
1,000 to 5.000 
4 to 8 
10 to 400 




Parameters 

Area Ratio of Nozzle Attachment 
Nozzle Percent Length. % 
Gimbal Angle, degrees 
C* Efficiency *;'0y.‘ 

Fuel Inlet Enthalpy, kcal/mole 


”“;:3:'";5^o 

80.0 

0.98450 

-1.270 


70 to 140 
0 to 15 
0.85 to 0.999 
-2.154 to 1.856 


IffVaeuuffiThr^ 






■: •' >>*. ; ~j m "3>M5}'v* w 

yijisiarhiwiti 

lilMsMiS 


n 'gpSf®S8888^gfi{:5[if^i 

fcwKi 






.« Jf, 77’- 


ua .a yv 

'■ 7w*tE: 

mmmwmz 

lilliifiiTMsfiM 


ODE;^lse^itof/Ibm 


L.li 


y,1 : 4-s 3*»’>»w ■ 







Boundary Layer Efficiency 

* !:::: 11M M: MM M-11. L MM11.11.^.Ux^!s- v- *.v,* va*-* w %-.-.♦Avy-.tiS!3 ' Miv2 1 ffitiI'M 1 Ml^ 


’• \yf, j j l* s j ^ j 1 I 


i? >}: ^ m3 M3M W* 

■piiiliilillC 


K>s k-ik * wkSvk JM >>s; 

flpPSttlP 




: iyijiaif? |PP* 
P?J Iji'kpi 

7 V - • * * vi » *A AAM ' \A ‘A% 

::: .: : : ; ;;mM 

..i:-&3 .^wSikSss 



: i MiiSilS ruui 


\sm^mmmasKi 


msmmamm 

^a»a>y>!:a«BiSBfeSeai£ 




MM.Mx.M.MMr MM MMM: ■ ■Ml. MMM-' 

•311 LI >’ 17- »< Ml ii Ml U! • f \ is»iS v |>^>5 jS J MS'? ' 

?M spas? l ?£ j: s: ;:%>.^f 11 ,-v 




-SV.VSS'^ (Si{i.'.v. , .ww:i' 



i8|pp|ig^|p 

1 MII-MM-.l! -I ‘M.» MM Ml !<?!> m s«vaw' 



-.• -3,; .sskAsM’sAK' 

. _ . . .'_ i. fi.i.s'.'AV.'/ 

,"l ‘! M1 •!*» 1'5M77'J? 

•’»»..• ' *. ’s* %S S "o *. SA • 
• . . ■ ‘ • • - .W.JJ.V >/V 


mmm 

::PL;fe 8 g»j 


■ i • /■ M1. '1 wsvIUm! ' 

■ v,. s SA Sj;; 

ff”'ii:S 

: ; ;:irr:||£ 

3j • 1M1 ;^>.MsLlisX? 

■ sCs<M Isidv-i^' 

■ M?: ;5 2 £;£•&$ 

• Mlils 

:«:>i UJWJwi 

.:MM 





f : i Tsft: Mitir. 


: J ’sl^t’A VX 5s*. > k r; Ti vs ill i"3 ?jmm m iM: m 
IJ | : $p? f !•: sf?-ij isi • -•:' | f-f i sjtj- :i|:. >;' j 

's*- 5ss*,As^^3st'ssA' ' vl'^v-isM'V, sl»jij!|lj-lCy *y ;| 


» s k ■ v • < v.^ * Ss S k-AJ J S • A vs V-.- K «!v S VJ.VS * v; 

: M ? :\: \ ii i^; : J :.i i i m i m i: t; j;-s im :.: *m ; 


• :’ ki-.-." v » • • s»; a»>av. v>*» vs* M Xl’WN'! 

8f§:s: iirSSiiiiS:;: p;: 




sv'waAsA V*. kSSJWAW 




'■ip ;:>?;;i:;i};Pj;)=H?i^?g 




li>^iiii^ii^iiiiroBiiii®rtSi:: 

B|i#Vahie3s3--: S 

; Throat Diameter, In 

10.3 

Throat Area, ln A 2 

83.2 

Chamber Length, In 

12.3 

Nozzle Exit Diameter. In 

90.3 

Engine Diameter, in 

96.0 

Nozzle Length. In 

119.5 

Engine Length, in 

168.0 


iValue 

Turbomachinery 

1.725.0 

Preburners 

229.0 

PB Hot Gas Manifold 

558.0 

Thrust Chamber 

859.0 

Nozzle 

1.250.0 

Gimbal Bearing :-r ■ 

105.0 

Valves and Controls 

722.0 

Controller and Moimt 

85.0 

POGO System 

94.0 

Propellant Ducts 

867.7 

| Pressurization System 

89.0 

OO Q A 

Other Engine Systems 

\ 

i; ■ • ; 

\ •'•••;. 1 . : :': : •:'• •:''••••••••'■ 

g 

« •" :• V . ■: : : .:v;■ ' • ". . :' ' . "... ■.•;••■ 

Z2o *0 

Total Dry Weight 

6.811.7 




V.wv, J*y v '. h k^V-kA ,w, v 


\ K -A’^y 2 ; 


mmm i" 

lTr> ; 


¥:*i •;•■*:&:': 


Figure 5. Input/Output Table for Liquid Models 
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Figure 6. Parametric Data Generation Screen — Liquid Engines 
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Figure 7. Parametric Results Table - Liquid Engines 
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Figure 9. Printed Version of Weight Chart - Liquid Models 




















































































































































































































































































































































































































Figure 10. Printed Version of Lengths Chart - Liquid Models 
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Figure 11. Printed Version of Performance Chart - Liquid Models 






































































Figure 12. Parametric Data 
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Figure 13. Solid Fuel Models Available 
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Figure 14. Solid Motor Model 













































































































































































































































































































































































Figure 15. Parametric Generation Screen - Solid Boosters 
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Figure 16. Parametric Results Table — Solid Boosters 
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Figure 17. Printed Output of Parametric Results - Solid Motors 
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Figure 18. Printed Version of Weights Chart - Solid Rocket Boosters 
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Figure 19. Printed Version of Lengths Chart - Solid Rocket Boosters 








































































































































































































































































































































































































































































Figure 20. Printed Version of Mass Fraction Chart - Solid Rocket Boosters 
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Figure 21. Printed Version of Performance Chart - Solid Rocket Boosters 







Figure 22. Parametric Results Available - Solid Rocket Boosters 
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Figure 23. Input/Output Table for Hybrid Rocket Booster Model 
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Figure 24. Parametric Data Generation Screen - Hybrid Motors 
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Figure 25. Parametric Results Table - Hybrid Rocket Boosters 






















































































































































































































































































































































































Figure 26. Parametric Data Available - Hybrid Rocket Boosters 
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Figure 27. Printed Version of Parametric Results Chart - Hybrid Boosters 











































































































































































































Figure 28. Printed Version of Weights Chart - Hybrid Rocket Motors 








































































































































































































































































































































Hybrid Propellants - Large Motors 



Figure 29. Printed Version of Lengths Chart - Hybrid Rocket Motors 







































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































30. Printed Version of Mass Fraction Chart - Hybrid Rocket Motors 








































































































































































































































Figure 31. Printed Version of Performance Chart - Hybrid Rocket Motors 




















































































































































































































































































































































































































































































Figure 32. Reactor Choices 
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Figure 33. Fuel Form Choices 































Figure 34. Nuclear Thermal Rocket Model 
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TA3-0420Fig 


Ingredient 

Weight Percent 

Al 

19.0 

AP 

68.86 

HP* 

12.0 

Fe203** 

0.14 


* varied for mechanical property control 
** varied for burn rate control 


Figure 36. Nominal Composition of ASRM Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2081 

C02 (g) 

0.02786 

CL(g) 

0.00285 

HCI (g) 

0.2093 

FeCI2 (g) 

0.0021 

H(g) 

0.00019 

H2 (g) 

0.01972 

H20 (g) 

0.08455 

AI203 (s & 1) 

0.3587 

N2(g) 

0.08582 


TA3-0322 


Figure 37. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 

ASRM Propellant 
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ASRM (ANB3652) Propells 


1 "v : 




Meop, psla 

Initial Area Ratio, Ei 

(Favg)vac. lbf 

Bum Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 

Nose Cone L/D_ 


1,000 

7.0 

2,590,000 

111 

146 

1 , 000,000 

1.30 



£TT 

s3Hl 

200 

To 

2000 

5 

To 

19 

320 K 

To 

8.9 M 

60 

To 

178 

80 

To 

255 


Note 1: Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 


Note 2: MG propellant bum rates 

(Rbo) are tailorable between 
0.334 and 0.806 ips. 


Note 3: Data is being extrapolated 
below range of regression. 


Note 4: Data is being extrapolated 
above range of regression. 


Figure38. Printed Output- "Report" 


nt 




ill 








Rbo, in/sec 
(Isp)sl, sec-lbf/lbm 
(Isplvac, sec-lbf/lbm 
(A throat)avg. in A 2 
(R throat)avg, in 
(Favg)sl, lbf 
(Favgjvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul. lbm 
W fwd skirt, lbm 
W ait skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf-sec 
(Impulse )vac, lbf-sec 


0.530 

0.002 

246.54 

N/A 

269.57 

N/A 

2.243.0 

10.7 

26.7 

N/A 

2.368.679 

N/A 

2.590.000 

N/A 

1,187.9 

5.3 

8.14 

Note 1 

167.5 

3.6 

138.5 

N/A 

1.545.3 

N/A 

1.066,466 

Note 4 

12.500.2 

1.025 

6,716.0 

105 

26.124.3 

933 

633.6 

29 

3.742.3 

N/A 

763.5 

N/A 

2.965.0 

N/A 

14.659.7 

N/A 

1,246.8 

N/A 

1,522.1 

N/A 

1.112E+06 


2.490E+04 


1.137E+06 


5.995E+03 

N/A 

9.377E-01 

N/A 

2.629E+08 


2.875E+08 
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Figure 39 . Printed Output - "Briefing" - Metric Units 






















Figure 40. Equations for ASRM 

Propellant Model 



Equations for Stage Components 


Yfirinhle to be 
Calculated Equation 


Nose Cone Weight, lbm 

W Nose Cone - 3395 -2098 N„ d - 0.4705(D C /2) 2 + 2.533X10' 5 {(A /2)J(D C I2) 2 + (Ni, d D c ) 2 } 


External Insulation Weight, lbm 

“ 87 + 0.7243A + 0.107KA/2) 2 


Fwd Skirt and Attach Weight, lbm 

(2.095 ♦0.052760, -0.0000846D, 2 ) 

WFwdSkirt “ e 

Aft Skirt and Attach Weight, lbm 

„(2.89 + 0.06343D t -0.00012De) 
WAftSkin " e 

Separation System Weight, lbm 


W« 


Separation 


0.0011208 W srm 


Misc Weight, lbm 

W misc - -1039 - 0.00204W irffl +2.854L c „ e * nozzle + 0.07885(A/2) 2 


TA3-0321 


Large Motor Equations for ASRM Propellant 


Burning Rate @ 1000 psia, ips Rbo = 4.633(D c /7fc)° Meop 


0.3528 


Propellant Weight, Ibm w - 0.004530F V 


.07282 


Vacuum specific Impulse, 
lbf-sec/lbm 


Is P* = 


Average 


Nozzle Throat Area, -14.5 + m.SW 0 p ” 02 Meop^” s 'T?*’' t + 1 039 E - 5F,+0.31317* 


Average Nozzle Throat 
Radius, in 


R,= H r 


Diameter of Nozzle @ Exit, in Q n= 2 J(R, - OWSTtfE, 
Average Sea Level Thrust, lbf = F v — 3.675tt43, 


Sea Level Specific Impulse, j sp ^ _ 


IspvFti 


lbf-sec/lbm 


Boss-Boss Case Length, in L c = 26.26»7« 5 D; 1 9 'V° 1366 


Nozzle Length (Alt Case Boss L n = \ .096/4 *° 5665 £° 3385 
to Nozzle Exit), in_— 

Case length to Diameter Ratio, UD C = ^ 
dim 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


Ltotai ~ L>c + 7-n + NudDc 

Wip = 19.1 + 164.3 M Meop' ]016 D^ xi ' -0.0718X4, 

W„ = 400.6 + 0.02310;% (1 + £,)L, +0.1004% “^<Lp 4374 £? l6W 


Internal Case Insulation, lbm Wi = -18.3 + 0.2467 173 0.07211/1/ 


Empty Case Weight, lbm 


0.7691 r +01140 ni.fcs* 


= -183.1 +4.795e-4F,+ 6.142e-6L? 82l9 A/eo/?°- 769l F v D c 


Total Rocket Motor Weight, fVjrm = W p + W n + Wj + W c + fV lgn 

lbm - - 

Total Stage Component W„, = H\- ouCont + WExtinction + W F „dShr, + ^A/tshn + ^sep^.on + W*tuc. 

Weight, lbm _______ _ __ 

Total Booster weight, lbm W^ - W^ + W sfg 

Booster Ideal Velocity, ft/sec ~, /,p,ln ( 32.18 

Booster Mass Fraction, dim Mf w b = 


Total Impulse Sea Level, 
Ibf-sec 

Total Impulse vacuum, 
lbm-sec 


1st = FstTb 


Iy = FyTb 




RMSE - 0.002 
(0.334-0.806) 

RMSE = 2,809 
(198k-3.01M) 

Analytical 

Equation 

RMSE = 10.7 
(315-6830) 

Analytical 
Equation_ 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5.3 
(443-1,640) 

RMSE = 3.6 
(52-373) 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 29 
(77-1,748) 

RMSE = 1,025 
(1,880-46,900) 

RMSE = 105 
(1,690-16,800) 

RMSE = 933 
(2,650-107k) 

Analytical 

Equation 

Analytical Eq. 
(4,200-193K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(45M-728M) 

Analytical Eq. 
(51M-865M) 

1/14/93 



























































































































































































































































































Figure 41. Script for ASRM Propellant 

Model 


TA3—0328 


27 March 1993 05:48:54 PM Parametric Database/Object 39 script 


Page: 1 


Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A123 

Put "ASRM (ANB3652) Propellant" Into C123 

Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 

Put 

Put 

Put 

Put 

Put 

Put 


1000 Into C126 
7 Into C127 


2590000 Into C128 
111 Into C129 
146 Into C130 
1000000 Into C131 
1.3 Into C132 


{Meop, psla} 
{Initial Area Ratio, El} 


{(Favgjvac, lbf} 

{Burn Time. Tb, seconds} 
{Dcase, in} 

{Push Weight, lbm} 
{Nose Cone Length/Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M* Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200. 1.0)" Into K126 
Put "=If (C126>2000, 1.0)" Into K127 
Put "=If (C127<5. 1.0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000. 1.0)" Into K130 
Put "=If (C128>8900000. 1.0)" Into K131 
Put "=If (C129<60. 1.0)" Into K132 
Put "=If (C129>178. 1.0)" Into K133 
Put "*If (C130<80, 1.0)" Into K134 
Put "=If (C130>255. 1.0)* Into K135 


{Load Results Formulas. RMSE and correlation limits, and percent error} 


e<»<i*rrri^n/ri201 A 0 9794)"IC126 A (-0.3528)))"L122" Into G126 
Z 334-? J 3 ->.mO 12S>0.806-L 122,-Note 4”.0.002'L122»- into H126 


Put"" Into 1126 


Put "=G128*G131/(C128*L126)" Into G127 
Put "N/A" Into HI27 
Put"" Into 1127 



27 March 1993 05:48:55 PM Parametric Database/Object 39 script 


Page: 2 


Put*»_(ci28*C129/(G138/L123))*L125" Into G128 
Put "N/A" Into H128 
Put ""Into 1128 

i&^U5?172 8-((0138/H23)-0.9902HC126-(.0.9551IHC129*(-0.9776)) 

P», 4-M0.7-L122-L122,]- Into H 

Put ""Into 1129 
{(R throat)avg} 

Put "=SqRt(G 129/3.141593)" Into G130 
Put "N/A* Into HI30 
Put ""Into 1130 

Puf^=(C128-11.54535*G136*G136/(L122*L122))*L126" Into G131 

Put "N/A" Into H131 
Put *" Into 1131 

{(Favg)vac) 

Put "=C128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 

Put"" Into 1133 

{L/D case} „, „ . 

Put "=G133/(C130*L122)" Into G134 

Put "=If[G134>5.6,""Note 1"",""N/A"")" Into H134 

Put"" Into 1134 

£ ?? Z ?i le Li«*fr i97*n 33851»aG129/(L122*L122)) A 0.5665))*L122" Into G135 

p^t *Ilf(G?35<^2*L12^/V^ote ^"?inG 135>373'L122.'"Note 4".3.6*L122))"IntoH135 

Put"" Into 1135 

Put^OI’^R^UG 130/L122*0.005"C 1 29 ) A 2 )*C 127))*L 122" Into G136 

Put "N/A" Into HI36 
Put ""Into 1136 

pS t ^G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put "" Into 1137 

Put"" Into 1138 



27 March 1993 05:48:56 PM Parametric Database /Object 39 script 


Page: 3 


Put ""Into 1139 

S!, < ^lTjfo U 2467-((ai38/L123|-0.7199nCl29-0^134)-((0133/L122)-(-0.1737)) 

^ ■ «IflO 140<"l WltV’M 23,"■^Not^S’MflGMO^lSSCM^?. 123. "Note 4".105*L123)1" Into HI40 

Put ""Into 1140 
{W case} 

Put"" Into 1141 

lXtM l l t 9 r} l + (164 3*(G138/(C129*L123)) A 1.273)*(C126 A (-1.076))*(C 130*(-0.5851)) 

"3S 9 2S 

Put ""Into 1142 
(W nose cone} 

^ ""ifa .533SS*(«C 3 130/2)*SqRS( l (Cl30/ 2) A 2)+((C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

{ ^t C "^(8?+o!724 1 ^ t C > 130+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put ** Into 1144 

( ^t f ”.‘(E^(2*9 a 5 l ?0 C 05276-C130.0.0000846-C130-C130))-L123-into 0145 
Put "N/A" Into HI45 
Put"" Into 1145 

Put^(ElS*89^ C 06343*C130-0.00012*C130'C130)rL123" Into G146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G 149" Into G147 
Put "N/A" Into HI47 
Put "* Into 1147 

Put™»f- e i039-0.00204*(0149/L123)+2.854*((0133+G135)/L122)+0.07885 , ((C130/2) A 2)) , L123" Into G14 

Put "N/A* Into HI48 
Put"" Into 1148 


{W SRM} 


Page: 4 


27 March 1993 05:49:05 PM Parametric Database/Object 39 script 

Put "=Sum(G138..G142)" Into G149 
Put"" Into HI 49 
Put"" Into 1149 


(W stage} 


Put "=Sum(G143..G 148)" Into G150 io*j "MAt* i"* """"ii" into HI50 

Put"=IffGl50<4200*L123.""Note3"".IflG150>193000'L123. Note 4 . )) Intomou 

Put"" Into 1150 


{WSRB} 

Put "=G149+G150" Into G151 
Put *" Into H151 
Put ""Into 1151 

Put'"»UI2.18 , (G128/L125)*Ln((C131+(G151/L123))/(C131+(G151/L123MQ138/L123))))*L124" Into G15 

Put "N/A" Into HI52 
Put"" Into 1152 


{Mass Fraction} 

Put "=*G138/G151* Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=If{G154<45000000*L126,""Note 

Put"" Into 1154 


3"",IftG 154>728000000*L 126,""Note 4"".""""))" Into H154 


{(Impulse)vac} 

SS : :maf55<5100O0 6 0o' n LT26.--Not C 3".I#0155.865000000‘U26."Note 4“.—))• Into H155 
Put"" Into 1155 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into C135 
Put "are difficult to wind w/o Joints." Into Cl36 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tailorable between" Into Cl39 
Put "0.334 and 0.806 lps." Into C140 

Put "Note 3:" Into A142 

Put "Data Is being extrapolated" Into Cl42 

Put "below range of regression." Into Cl43 

Put "Note 4:" Into A145 

Put "Data is being extrapolated" Into Cl45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 



Ingredient 

Weight Percent 

R-45M (1% A02246)* 

13.83 

IPDI* 

0.86 

HX-752 

0.30 

TPB 

0.01 

Mg 

22.0 

AP** 

62.80 

Fe203** 

0.20 


* varied for mechanical property control 
** varied for burn rate control 


Figure 42. Nominal Composition of Magnesium Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2860 

C02 (g) 

0.0162 

CL (g) 

0.0002 

HCI (g) 

0.1505 

FeCI2 (g) 

0.0032 

MgCI2 (g) 

0.052 

H (g) 

Insignificant 

H2(g) 

0.0289 

H20 (g) 

0.0415 

MgO (s) 

0.3412 

N2(g) 

0.0766 

Other 

0.0005 


Figure 43. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Magnesium Clean Propellant 

TA3-0323 


PREGtOiNG PAGE BLANK NOT FILMED 





Large Motors 

14 January 1993 


Neutr alizin g Mg (DL-H435) Propellant 


'■r 1-^.5: 


1; :;a iiisii, 4s s ^5*4^5 


Meop. psia 

1.000 

Initial Area Ratio, El 

7.0 

(Favg)vac. lbf 

2.590.000 

Burn Time. Tb. seconds - 

111 

Dcase, in 

146 

Push Weight, lbm 

1,000,000 

Nose Cone L/D 

1.30 


&mwi 




200 

To 

2000 

5 

To 

19 

320 K 

To 

8.9 M 

60 

To 

178 

80 

To 

255 


indent Terms 


Note 1 


Note 2: 


Note 3: 


Note 4: 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MO propellant bum rates 
(Rbo) are tailorable between 
0.34 and 0.81 lps. 

Data Is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 


Rbo. in/sec 
(Isp)sl. sec-lbf/ibm 
(Isp)vac, sec-lbf/lbm < 
(A throat)avg. in A 2 
(R throat)avg, in 
(Favgjsl, lbf 
(Favgjvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D.. In 
Total Length, in 
W propellant, ibm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul. lbm 
W fwd skirt, lbm 
i W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB. lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl. lbf-sec 
(lmpulse)vac. lbf-sec 


0.534 

243.05 

266.17 

2,278.9 

26.9 

2,365.069 

2,590,000 

1.337.3 
9.16 

169.7 

139.6 

1.696.8 
1,080.110 

12.648.0 

7.128.9 
28,823.5 

630.7 

3.742.3 

763.5 

2.965.0 

14,659.7 

1,265.8 

1,920.0 

1.129E+06 

2.532E+04 

1.155E+06 

5.959E+03 

9.354E-01 

2.625E+08 

2.875E+08 


RM9B 

0.002 

N/A 

N/A 

11 

N/A 

N/A 

N/A 

5 

Note l 
3 

N/A 

N/A 

Note 4 
1,184 
107 
1,066 
28 
i N/A 
i N/A 
\ N/A 
r N/A 
I N/A 
) N/A 


N/A 

N/A 


Figure 44. Printed Output - "Report" - English Units 
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Figure 46. Equations for Mg Clean 

Propellant Model 
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Equations for Stage Components 


Variable to be 
Calculated Effliatittl 

Nose Cone Weight, lbm 

W Noit Cone - 3395 - 2098tf w -0.4705(D C /2) 2 + 2.533xl0' 5 {(A/2)/(A W 


External Insulation Weight, lbm 

Wfc,/■»/„,o. - 87 + 0.7243A + 0.1071(A/2) 2 


Fwd Skirt and Attach Weight, lbm 

„ (2.095 4-0.05 276D C -0.00008461)*) 

WpwlSklrt " € 

Aft Skirt and Attach Weight, lbm 


W^ftSkirt m e 


(2.89 ♦ 0.06343D*-O.OOO120* 2 ) 


Separation System Weight, lbm 


Wseparatlon m 0.0011208 


Misc Weight, lbm 

w ml , e - -1039 - 0.00204W jnB +2.854A«, * +0.07885(A/2) 2 


TA3—0321 


Large Motor Equations for Magnesium Based Propellant 



Burning Rate @ 1000 psia, ips Rbo = 4.957(D c /7a) 09 Meop 


0.3614 


Propellant Weight, lbm w = 0.005028 F^'t^Ef^Meop 


- 0.01470 


Vacuum specific Impulse, j S p v - Ml 
Ibf-sec/lbm__ ' ____ 

Average Nozzle Throat Area, A r = -15.2 + 157.4 fV% 9S99 Meop 0 ww 7^° +1.027 E 


-5F,+ 0.31347* 


Average Nozzle Throat 
Radius, in 


R, = J T 


Diameter of Nozzle @ Exit, in d„ = 2 j(R,-0.005T b ) 2 E, 
Average Sea Level Thrust, Ibf /*,/ = F v — 3.675JtDn 


Sea Level Specific Impulse, lsp,* = 
lbf-sec/lbm 


lsp v Fti 

fv 


Boss-Boss Case Length, in ^ __ _q 3 +28.23^ J° 9794 + 8.696£- 4 M+0.009766Meop 

Nozzle Length (Aft Case Boss i n _ _i4.g7 + L8468£? 2966 /4^° 5225 -O.OO2486iV/e0p +0.4242E, 
to Nozzle Exit), in 

Case length to Diameter Ratio, UD C = 

dim - 


-0.02445T 6 


Booster Total Length, in 


Igniter Weight, lbm 


Ltotal ~ Lc + + Ny^D c 

W,„ = 21.0 + 0.221 &V/eop 0 1277 ^l' ““D; 06535 


Nozzle Weight, lbm yp n _ 588.7 + 0.02444/i7(l +£<)£.. +0.060484, Wj- 41 ®^ 1 * 2 

Internal Case Insulation, lbm JK = -19.5 + 0.2395< 702J rJ 3056 I;° 1211 -0.060241, 


Empty Case Weight, lbm Wc = _277.8 + 5.822E - 4F V + 6.142£ - 6 £° c S29t Meop o mt Ff ‘' '°Dj 8575 

Total Rocket Motor Weight, = W p + W n + Wi + W c + W ign 

lbm - - 

Total Stage Component W„ t = W NmCm + + W FwdSUn + ^AfiSkin + + W Mm 

Weight, lbm __________ 

Total Booster weight, lbm W^ - Wxrm + W Jtg 

Booster Ideal Velocity, ft/sec ~ . IspM (jggfe;) 32.18 

^^^^ . . ^ l !l ^ ^ 11 " j ^ ' " j l ^ 

Booster Mass Fraction, dim Mfsrb - ^T~ 


Total Impulse Sea Level, 
Ibf-sec 

Total Impulse vacuum, 
Ibm-sec 


I si = FsiTb 


/v = FyTb 


RMSE = 0.002 
(0.34-0.81) 

RMSE = 3,466 
(198k-3.0lM) 

Analytical 

Equation 

RMSE = 11 
(329-6,820) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(492-1,825) 

RMSE = 3 
(46-374) 

Analytical 

Equation 

Analytical 

Equation 

RMSE =28 
(76-1,754) 

RMSE = 1184 
(1,9 44-47,600) 

RMSE = 107 
(1,830-17,200) 

RMSE = 1,066 
(2,840-117k) 

Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(44M-716M) 

Analytical Eq. 
(51M-854M) 


1/14/93 































































































































Figure 47. Script for Mg Clean 

Propellant Model 
(Large Motors) 
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Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A123 

Put "Neutralizing Mg (DL-H435) Propellant" Into C123 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 1000 Into Cl26 
Put 7 Into Cl27 


{Meop, psla} 
{Initial Area Ratio, El} 


Put 2590000 Into C128 
Put 111 Into C129 
Put 146 Into C130 
Put 1000000 Into C131 
Put 1.3 Into Cl32 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 
{Dcase, In} 

{Push Weight, lbm} 
{Nose Cone Length/Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19" Into D127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 

{Load Range Limit Checks} 

Put "=If(C126<200, 1,0)" Into K126 
Put "=If (C126>2000. 1.0)" Into K127 
Put "=If (C127<5, 1,0)" Into K128 
Put "=If (C127>19, 1,0)" Into K129 
Put ”=If (C128<320000. 1,0)" Into K130 
Put "=If (C128>8900000. 1.0)* Into K131 
Put "=If (C129<60, 1,0)" Into K132 
Put "=If(C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1,0)" Into K135 

{Load Results Formulas. RMSE and correlation limits, and percent error} 

{Rbo} 

Put "=(4.957*((C130/C129) A 0.9788)*(C126 A (-0.3614)))*L122" Into G126 

Put "=If{G126<0.34*L 122,""Note 3"".IflG126>0.81*L122,""Note 4"",0.002*L122))" Into H126 

Put"" Into 1126 

{(I sp) s 1} 

Put "=G128*G131 /(C128*L126)" Into G127 
Put "N/A" Into HI27 
Put"" Into 1127 

{(Isp)vac} 

Put "=(C128*C129/(G138/L123))*L125" Into G128 
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Put "N/A" Into HI28 
Put"" Into 1128 


{(A throat )avg} 

Put "=(-15.2+157.4*((G138/L123) A 0.9899)*(C126 A (-0.9404))*(C129 A (-0.9776)) 
+(1.027E-5)*C128+0.3134*C129)*L122*L122" Into 0129 
Put "=If(G129<329*L122*L 122, ""Note 3"",If(G129>6820*L122*L122,""Note 4"",11*L122*L122))" Into H12 

Put ""Into 1129 


{(R throat)avg} 

Put "=SqRt(G129/3.141593)" Into G130 
Put "N/A" Into HI30 
Put ""Into 1130 

{(Favg)sl} 

Put "=(C 128 - 1 1.54535*G136*G136/(L122*L122))*L126" Into G131 
Put "N/A" Into H131 
Put"" Into 1131 


{(Favg)vac} 

Put "*C128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 

{L C3.SC} 

Put ”=(-0.3+28.23*{{G138/L123)/(C130*C130)) A 0.9794+(8.696E-4) 

•(Gl 38 /Ll 23)/C129+0.009766*C126)*Ll 22" Into G133 
Put "=IfIG133<492*L 122,""Note 3"".Ifl[G133>1825*L122,""Note 4"",5*L122))" Into H133 
Put ""Into 1133 


{L/D case} 

Put "=G133/(C130*L122)" Into G134 

Put "=IflG134>5.6.""Note 1"",""N/A"T Into H134 

Put"" Into 1134 


{L nozzle} 

Put "=(-14.87+ 1 .8468*(C127 A 0.2966)*((G 129/(L122*L122)) A 0.5225) 

- 0 .002486*C1 26 + 0 .4242*C127-0.02445*C129)*L122" Into G135 
Put "=IflG135<46*L 122,""Note 3"".If(G135>374*L122.""Note 4"",3*L122))" Into H135 
Put ""Into 1135 


(Nozzle Exit Dla} 

Put "=(2*SqRt(((G130/L122-0.005*C129) A 2)*C127))*L122" Into G136 
Put "N/A" Into HI36 
Put"" Into 1136 

(Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put"" Into 1137 


(W propellant} 

Put "=((0.005028*C128 A 0.9953)*(C129 A 1.0027)*(C127 A (-0.06843))*(C126 A (-0.01470)))*L123" Into G138 
Put "=If(G 138> 198000*L 123,""Note 4"",If(G138<3010000*L123.""Note 3"".3466*L123))" Into H138 
Put ""Into 1138 
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Put "= + IfIGlJI9< 1944^L1^23!"Note 3"!lfIG139>47600*L123,''Note 4"",1184*L123)1“ lntoH139 
Put ""Into 1139 

Put C M-19 S 5+0 tl 2395*((G138/L123) A 0.7022)*(C129 A 0.3056)*((G133/L122)''(-0.1211)) 

Put 4-. 107*L123))" into H140 

Put ""Into 1140 

{W case} 

** 3 sVl 1 221*0.8298)*(C 126 A 0.7754)*(C 128 A 0.1110)*(C130 A 1.8575))*L123" Into G141 

Put "*If(G141<2840*L123.""Note 3"".If(G141>117000*L123.""Note 4"\1066*L123))" Into H141 
Put ■" Into 1141 

Z‘*- n m r 0*0 22 1 8 *(C 126 "0.1277)“((Q129/(L122“L122)1 A 1.3314)“(C 130 , '(*0.6535)))“L123“ Into G142 

K! •:1rGU?< 76-L 123."Note 5”.lVoi42»1764*L123.”Not« 4-.28-L123))- Into H142 
Put"" Into 1142 

(W nose cone} 

~+ (^.533IS *5) * HI(cf130/2^*55qR t(((C130/2) A 2)+((C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

^t C "^(8™^0. I 7245*C > r30+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put ""Into 1144 

Kt t ME^(2.09s! a 0.05276“C130.0.0000846-C130“C130))“L123“IntoO145 

Put "N/A" Into HI45 
Put"" Into 1145 

Kt^(E k i t (2!8 a 9 t l0 C 06343*C130-0.00012*C130*C130))*L123" Into 0146 
Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*0149" Into G147 
Put "N/A" Into HI47 
Put "" Into 1147 

Put™=?- C 1039-0.00204“(G149/L123)+2.854“((G133+01351/Ll22)+0.07885“((Cl30/2)''2))*L123" Into G14 

Put "N/A" Into HI48 
Put"" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Put"" Into HI49 
Put"" Into 1149 


{W stage} 

Put "=Sum(G 143..0148)" Into G150 
Put "=If(G150<4300*L 123,""Note 3"" 


,IfIG150>193000*L123, 


""Note 4"" 


Put"" Into 1150 


""""))" Into H150 


{W SRB} 

Put "=G149+G150" Into G151 
Put"" Into H151 
Put ""Into 1151 


Put^* 032 . 18 *(G 128 /L 125 l , Ln((C 131 +(G 151 /L 123 ))/lC 131 +(G 151 /L 123 MO 138 /L 123 ))))*L 124 " Into 015 

Put "N/A" Into HI52 
Put"" Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

-:m 1 Gl 1 M< 1 44000000'u26."Note 3-MH0154>716000000-L126."Note 4”.'“»- Into H154 
Put"" Into 1154 


{(Impulse)vac} 

Put "=C128*C129*L126" Into G155 
Put "=If{G155<51000000*L 126.""Note 
Put"" Into 1155 


3"",If{G 155>854000000*L126.""Note 


4 "",""""))" Into HI55 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into Cl35 
Put "are difficult to wind w/o joints." Into Cl36 


Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tallorable between" Into Cl39 
Put "0.34 and 0.81 Ips." Into C140 

Put "Note 3:" Into A142 

Put "Data Is being extrapolated" Into Cl42 

Put "below range of regression." Into Cl43 

Put "Note 4:" Into A145 

Put "Data Is being extrapolated" Into Cl45 

Put "above range of regression." Into Cl46 


Automatic Recalc 
Invalidate Off 



Medium Motors 
18 August 1992 




Meop, psia 

Initial Area Ratio, El 

(Favglvac, lbf 

Burn Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 


Neutralizing Mg (DL-H435) Propellant 


mmm 


2,000 

10 

250.000 

40 

70 

200.000 


900 To 2000 
7 To 19 
62K to 328K 
30 To 105 
30 To 105 



Note Is Cases with L/D greater than 5.6 
are difficult to wind w/o joints. 

Note 2: MG propellant bum rates 

(Rbo) are tailorable between 
0.34 and 0.81 ips. 

Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 



Figure 48. Printed Output - "Report" - English Units 
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Figure 49. Printed Output - “Briefing" - Metric Units 












Figure 50. Script for Mg Clean 

Propellant Model 
(Medium Motors) 


TA3-0330 



Page: 1 


27 March 1993 05:58:49 PM Parametric Database/Object 240 script 

Invalidate On 
Manual Recalc 
Select Range A57 
Window Scale 65% 

{Titles and dates) 

Put" Medium Motors" Into A64 

Put "Neutralizing Mg (DL - H435) Propellant Into 064 

Put "18 August 1992" Into A65 

{Initial Independent Variable Setup) 

Put 2000 Into C67 {Meop, psia) 

Put 10 Into C68 {Initial Area Ratio. El) 

Put 250000 Into C69 {(Favg)vac, lbf) 

Put 40 Into C70 {Bum Time, Tb, seconds) 

Put 70 Into C71 {Dcase, in) 

Put 200000 Into C72 {Push Weight, lbm) 


{Load Range Information) 

Put "900 To 2000" Into D67 
Put "7 To 19" Into D68 
Put "62K to 328K" Into D69 
Put "30 To 105" Into D70 
Put "30 To 105" Into D71 


{Load Range Limit Checks) 

Put "=If (C67<900, 1.0)" Into K67 
Put "=If (C67>2000, 1.0)" Into K68 
Put "=lf (C68<7, 1.0)" IntoK69 
Put "=If(C68>19, 1.0)" Into K70 
Put "=If (C69<62000, 1,0)" Into K71 
Put "=If (C69>328000. 1,0)" Into K72 
Put "=If (C70<30, 1,0)" Into K73 
Put "=If(C70>105, 1.0)" Into K74 
Put "=If (C71<30. 1,0)" Into K75 
Put "=If (C71>105, 1,0)" Into K76 


{Load Dependent Terms and Intermediate Results) 

Put "=C71/C70" Into M76 

Put "=C67*M76" Into M78 

Put "=(C67/ 1000) A 0.39" Into M80 

Put "=C69*C70" Into M82 

Put "=C69/C67" Into M84 

Put "=M84/C68" Into M86 

Put "=(G79/L3)/C70" Into M88 

Put "=(G79/L3)/(C71*C71)" Into M90 

Put "=(G71 /L2)*C68" Into M92 

Put "=((SqRt(G70)+SqRt(G70*C68))/2*G76)/(L2*L2)" Into M94 
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Put "=(G79/L3)/C70*(26.0314*C70/(C71*C71)+0.000046398)" Into M97 
Put "=LN((C72+(G86/L3))/(C72+(G86-G79)/L3))* Into Ml00 


{Load Results Formulas. RMSE and correlation limits, and percent error} 


A^fil+O 31293*M76+0 00001733331*M78-0.37345*M80)*L2" Into G67 

™ ,2m £.mG67>0.532*L2,"*Not« 4**.0.0125*L2»" Into H67 

Put 2.995 Into 167 


{{Isp)sl} 

Put "=G72*C70/G79" Into G68 
Put "N/A" Into H68 
Put "N/A" Into 168 


pKmS 468*3 47093*C68-0.079374*C68*C68+0,000010827*069-0. 02 6726*C70)"L5" Into G69 

St"=IIIG 69 < 26 ^*L5/"Note 3**,IflG69>286*L5,"Note 4**.0.595*L5»* Into H69 
Put 0.217 Into 169 


M M8 255?+0 0000009095*M82+0.72572*M84+0.58737*M86)*L2*L2" Into G70 

"=iflG70<46.5*L2*L2.""Note 3"".IflG70>368.2*L2*L2.""Note 4«".1.57*L2*L2))" Into H70 
Put 0.872 Into 170 


{(R throatjavg} 

Put "=SqRt(G70/3.141593)" Into G71 
Put "N/A" Into H71 
Put "N/A" Into 171 


/(Favc)sl} 

Put "=(C69-14.7*C68*G70/(L2*L2))*L6" Into G72 


Put "N/A" Into H72 
Put "N/A" Into 172 


{(Favg)vac} 

Put "=C69*L6" Into G73 
Put "N/A" Into H73 
Put "N/A" Into 173 


Put "-{6 918+26 0782 *M 90 + 10 .5873*M80-0.049018*C70+0.000008449*07 1*C71*C71)*L2" Into G74 

Kft **IflG74<207*L2/"Note 3".IiI074>462*L2/*Note 4". 1.519-L2H* Into H74 
Put 0.466 Into 174 


{L/D case} 

Put "=G74/(C71*L2)" Into G75 

Put "=If(G75>5.6,""Note 1"",""N/A"T Into H75 

Put "N/A" Into 175 


<"> 0584+6.33835*1071/L2)+0.16796*M92-0.001205*C67+0.46015*C68)*L2" Into G76 

.:inG 76<5 3*L2.""Note 3",BIG76>89.2*L2."Note 4**.0.94*L21)* Into H76 
Put 2.282 Into 176 
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{Nozzle Exit Dia} 

Put "*2*G71*SqRt(C68)* Into G77 
Put "N/A" Into H77 
Put "N/A" Into 177 


{Total Length} 

Put "=G74+G76+( 1.5*C71 )*L2" Into G78 
Put "N/A" Into H78 
Put "N/A" Into 178 


{W propellant} 

Put "=(C69*L6)*C70/G69" Into 
Put "=IfIG79>105000*L3,""Note 4"\If[G79<15000*L3," Note 



Put "N/A" Into 179 


3 "",""N/A""))" Into H79 


Put"-(36^9679+0.000011857*M82+0.1818*M94+1.41166 , C70+9.22776*G76/L2)*L3" Into G80 
P^t "=IflG80<221*L3.""Note 3"".IflG80>1819*L3.""Note 4"".21*L3))" Into H80 
Put 2.358 Into 180 


P^t^=M a 70.9 } 12+0.09922*C71*C71+M97+1.41144*C70}*L3* Into G81 

Put "=If(G81<260*L3,""Note 3"".If(G81>2085*L3,""Note 4"",13.42*L3))" Into H81 

Put 1.33 Into 181 


PutM-143 337 + 0.030 13*C71*C71+3.5389*C71+0.0006026*C69+0.0000222242*G79/L3)*L3" Into 082 

Put "=If(G82<394*L3,*"Note 3"\Ifl(G82>5676 , L3.""Note 4*\66.95*L3))" Into H82 
Put 2.64 Into 182 


pIJt 1 Ml t 5 ! 6963 + 0 . 00014004 *(G 70 /{L 2 *L 2 ))/(C 71 *C 71 )+ 51 . 1973 *M 88 /C 67 - 0 . 0074883 "C 67 )*L 3 "Into G83 

Put "*If(G83<16.13*L3,""Note 3"".IAG83>106.5*L3.""Note 4" ,2.9 L3)) Into H83 
Put 5.74 Into 183 


{W SRM} 

Put "=Sum(G79..G83)" Into G84 
Put "=71.7*L3" Into H84 
Put" " Into 184 


P^tM^ 96 + 0 .16858*C71*C71+0.001425*C71*C71*C71+3.07233*(G74+G76)/L2)*L3" Into G85 

Put "=If{G85<674*L3,""Note 3"".IflG85>4240*L3,""Note 4"",94.8*L3))* Into H85 
Put 4.3 Into 185 


{W SRB} 

Put "=G84+G85" Into G86 
Put "=121.5*L3" Into H86 
Put" " Into 186 

{V ideal} 

Put "=((G69/L5)*32.18*M100)*L4" Into G87 
Put "N/A" Into H87 
Put "N/A" Into 187 
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{Mass Fraction} 

Put "=G79/G86" Into G88 
Put "N/A" Into H88 
Put "N/A" Into 188 

{(Impulse)sl} 

Put "*G72*C70" Into G89 
Put "N/A" Into H89 
Put "N/A" Into 189 

{(Impulse)vac} 

Put "=G73*C70" Into G90 
Put "N/A" Into H90 
Put "N/A" Into 190 


{Load Notes} 

Put "Note 1:" Into A76 

Put "Cases with L/D greater than 5.6" Into C76 
Put "are difficult to wind w/o joints." Into C77 

Put "Note 2:" Into A79 
Put "MG propellant bum rates" Into C79 
Put "(Rbo) are tailorable between" Into C80 
Put "0.34 and 0.81 ips." Into C81 

Put "Note 3:" Into A83 

Put "Data is being extrapolated" Into C83 

Put "below range of regression." Into C84 

Put "Note 4:" Into A86 

Put "Data is being extrapolated" Into C86 

Put "above range of regression." Into C87 

Automatic Recalc 


Invalidate Off 



Ingredient 

Weight Percent 

PGN 

35.0 

A! 

25.0 

AN** 

40.0 


* varied for mechanical property control 
** varied for burn rate control 


Figure 51. Nominal Composition of Non-Chlorine Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.236 

C02 (g) 

0.0175 

A10H 

0.00001 

AI02H 

0.00001 

A1203 (1 & S) 

0.472 

OH (g) 

0.00017 

H (g) 

0.00023 

H2 (g) 

0.0274 

H20 (g) 

0.0653 

NO (g) 

0.00001 

N2 (g) 

0.1811 


Figure 52. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Non-Chlorine Clean Propellant 





Large Motors 


Non-Chlorine (PGN/AN/AL) Clean Propellant 


14 Jam 


1993 








Meop, psia 

Initial Area Ratio, El 

(Favgjvac, lbf 

Bum Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 

Nose Cone L/D_ 


1.000 

7.0 

2,590.000 

111 

146 

1 , 000,000 

1.30 








200 To 2000 
5 To 19 

320 K To 8.9 Ml 
60 To 178 
80 To 255 


Dependent Terms 




Note 1: Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 


Note 2: MG propellant bum rates 

(Rbo) are tailorable between 
0.33 and 0.818 ips. 

Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 


Rbo. in/sec 
(Isp)sl, sec-lbf/lbm 
(lsp)vac, sec-lbf/lbm 
(A throat)avg, in A 2 
(R throatjavg, in 
(Favg)si. lbf 
(Favgjvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul, lbm 
W fwd skirt, lbm 
W aft skirt, ibm 
W separation, lbm 
W misc, lbm 
W SRM. lbm 
W stage, lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf-sec 
(Impulse)vac, lbf-sec 


0.540 
244.10 
267.69 

2.312.2 
27.1 

2,361.706 

2,590,000 

1.230.4 
8.43 

171.1 
140.6 

1.591.3 
1,073,951 

13,442.8 

7,003.6 

26,915.1 

639.2 

3.742.3 
763.5 

2.965.0 

14,659.7 

1.257.5 
1,634.1 

1.122E+06 
2.502E+04 
1.147E+06 
5.975E+03 
9.363E-01 
2.621E+08 
2.875E+08 


Figure 53. Printed Output - "Report" - English Units 
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Figure 54. Printed Output - "Briefing" - Metric Units 




















Figure 55. Equations for Non-Chlorine 

Clean Propellant Model 


TA3-0327 


Equations for Stags Components 


Variable to be 

Calculated flffliatfon 


Nose Cone Weight, lbm 

"Natt Cont 


m 3395 - 2098N//J - 0.4705(A/2) 2 + 2.533xlO' 5 {(A /2)/(A/2) 2 


External Insulation Weight, lbm 

W^nsu^on - 87 + 0.7243A + 0.1071(A /2) : 


Fwd Skirt and Attach Weight, lbm 

( 2.095 + 0 . 052760 , - 0 . 00008460 *) 

W Fw iSkirt - « 

Aft Skirt and Attach Weight, lbm 

..(2.S9+0.06343D,-0.00012D, 1 ) 
W A f, Sk to - e 

Separation System Weight, lbm 

Wseparatlon " 0 . 0011208 W lrm 


Misc Weight, lbm 

2 

- -1039 - 0.00204W inK + 2.854I e(ue a nozzit +0.07885(D c /2) 


TA3-0321 




Large Motors Equations For Non-Chlorine Propellant 



^- / \ u yvyj 

Burning Rate @ 1000 psia, ips ^ = 5 362 (jij Meop^ 3 ™ 

Propellant Weight, lbm w , = 642.470.004462^""tf 


Vacuum specific Impulse, / 5 p v = 

Ibf-sec/lbm_'__ _ _ 

Average Nozzle Throat Area, % = -11.5 + 187.8^^A+ 1 923F - 5F, + 0.34617* 


Average Nozzle Throat 
Radius, in 


R,= Jt 


Diameter of Nozzle @ Exit, in = 2 j(R,-O OGSTb^E, 

Average Sea Level Thrust, lbf Fjf = F, — 3.675F. ^ 


/jpv-Fd 


Sea Level Specific Impulse, / 5 „ yjrf _ £2: 
lbf-seolbm * 


Boss-Boss Case Length, in ^ _ _3 q + 26.79^ +0.0008531 M +0.008615A/<?op 

Nozzle Length (Aft Case Boss - -16.3 + 1.892£f 2937 ^° ^ “ 0.002267Afeop + 0.4660 £ t 
to Nozzle Exit), in ________ 

Case length to Diameter Ratio, JJD C = —■ 

dim e __ 


-0.023407* 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


Litotal — Lc "l" Ln NUdDc 

W lgn = 16.6 + 0.2810 Meop^A^D; 06 ' 64 

W n = 327.3 + 0.02671 (1 +Ei)L„ + 0.16641? 6079 W^ 4469 ^ 111 


- 0.06609 


Internal Case Insulation, lbm \y j _ -19.4 + 0.2425U^ 7148 Tj 3103 Lj° 1566 +A, 

Empty Case Weight, lbm = - 122.9 + 5.15 5£ - 4F V + 6.142F - 6L? 8250 Meop 07721 F^' l0 *D l c m 


Total Rocket Motor Weight, = W p + W n + W k + W c + W ign 

lbm — 

Total Stage Component W sig = W NonCon < + W^insulation + W FwdShrt + ^Afishrt + 

Weight, lbm 

Total Booster weight, lbm W^ = IF*™ + fF,rg 

Booster Idea! Velocity, ft/sec 

Booster Mass Fraction, dim Mfsrb = ^T" 


Total Impulse Sea Level, 
lbf-sec 

Total Impulse vacuum, 
lbm-sec 


U = F d T h 


I v =FJb 


RMSE = 0.002 
(0.33-0.818) 

RMSE = 3,048 
(2O0k-3M) 

Analytical 

Equation 

RMSE = 11 
( 334-9,760) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(457-1,688) 

RMSE = 3 
(50-380) 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 22 
(77-2,922) 

RMSE = 567 
(2.6k-49.8k) 

RMSE = 241 
(1,700-16,800) 

RMSE = 909 
(2,720-110k) 


Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 


Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(45M-720M) 

Analytical Eq. 
(52M-861M) 


1/14/93 












































































































































Figur© 56. Script for Non-Chlorine Clean 

Propellant Model 


TA3-0331 



Page: 1 


27 March 1993 06:05:16 PM Parametric Database/Object 45 script 

Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put H Large Motors" Into A123 

Put "Non-Chlorine (PGN/AN/AL) Clean Propellant" Into Cl23 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 

Put 1000 Into C126 {Meop, psia} 

Put 7 Into Cl27 {Initial Area Ratio, El} 

Put 2590000 Into Cl28 {(Favgjvac. lbf} 

Put 111 Into Cl29 {Burn Time, Tb, seconds} 

Put 146 Into C130 Pease. In} 

Put 1000000 Into C131 {Push Weight, lbm} 

Put 1.3 Into C132 {Nose Cone Length /Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200, 1.0)" Into K126 
Put "=If (C126>2000, 1,0)" Into K127 
Put "=If (C127<5. 1,0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000. 1.0)" Into K130 
Put "=If (C128>8900000. 1,0)" Into K131 
Put "=If(C129<60. 1.0)" Into K132 
Put "=If (C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1.0)" Into K135 

{Load Results Formulas, RMSE and correlation limits, and percent error} 


{Rbo} 


Put "=f5 362*((C130/C129) A 0.9793)*(C126 A (-0.3713)))*L122" Into G126 

Put "=IflG126<0.33*L122,""Note 3"".If(G126>0.818*L122.""Note 4"",0.002*L122)) Into 


Put "=IflG126<0 
Put ""Into 1126 


H126 


{(Isp)sl} 

Put ”=G128*G131/(C128*L126)" Into G127 


Put "N/A" Into HI27 
Put"" Into 1127 


Put "=(C128*C129/(G138/L123))*L125" Into G128 
Put ”N/A" Into HI28 



Page: 2 


27 March 1993 06:05:18 PM Parametric Database/Object 45 script 
Put ""Into 1128 


Put^=(°f l^+*187.8*((G 138/L123) A 0.9949)*(C 126 A (-0.9708))*(C 129 A (-0.9838)) 

Put "^inCU^SSVLl 2 22‘°L 1 ^/"Site 9 S-MflGl^g^^Lm'Ll22,""Note 4"\11*L122*L122))" Into H12 
Put "" Into 1129 


{(R throatjavg} 

Put "=SqRt(G129/3.141593)" Into Q130 
Put "N/A" Into HI30 
Put ""Into 1130 


Puf^=(C128*l 1.54535*0136*0136/(L122*L122))*L126" Into 0131 


Put "N/A" Into H131 
Put"" Into 1131 


{(Favg)vac} 

Put "sC128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 


Kit "=(-3.0+26.79*((G138/Ll 23)/(C130*C130)) A 0.9735+(8.53 IE-4) 
*(G 138 /Ll23)/Cl29+0.008615*0126)*L122" Into G133 
Put "=If(G133<457*L122.""Note 3"".IflG133>1688*L122.""Note 4"".5 


•L122))" Into H133 


Put"" Into 1133 


{L/D case} 

Put *=G133/(C130*L122)" Into G134 

Put "=If(Q134>5.6,""Note 1"",""N/A"")" Into H134 

Put "* Into 1134 


fcr°=( Z - 1 16.3+1.892*(C127 A 0.2937)*((G129/(L122*L122)) A 0.5206) 

-0.002267*C1 26 + 0 .4660*C127-0.02340*C129)*L122" Into 0135 
Put "=IflG135<50*L122.""Note 3"".If(G135>380*L122.""Note 4 .3 L. 122)) IntoH135 
Put"" Into 1135 


{ ^r"=(2*Sq t R?( 1 (tG130/L122-0.005*C129) A 2)*C127))*L122* IntoG136 


Put "N/A" Into HI36 
Put"" Into 1136 


{Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put"" Into 1137 


(W propellant} 

Put "=(642.4+(0.004462*(C128 A 0.9955)*(C129 A 1.0027)* 

(C127 A (-0.07409))*(C126 A 0.002841)))*L123" Into G138 
Put "=If{G138<200000*L123,""Note 3"".If(G138>3000000*L123.""Note 
Put"" Into 1138 


4"",3048*L123))" Into H138 
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Page: 3 


(W nozzle} 

Pu * 

Put "=If(G139<2600*L 123,""Note 3"",If(G139>49800*L 123,""Note 4 ,567*L123)) Into 
Put ""Into 1139 

pI[t C "^19 S 4!o U 2425*({G138/L123) A 0.7148)*(C129 A 0.3103)*((G133/L122) A (-0.1566)) 

+ffG129/(L122*L122)) A 0.06609))*L123" Into G140 
Put "=If(G140<1700*L123,""Note 3"",IflG140>16800*L 123,""Note 4"",241*L123)) Into H140 

Put"" Into 1140 
{W case} 

PU ‘u 2 2E*6)-((G 5 13m?2!f^.8250nCI26*0.7722|-(C128-OM 108)-(C130- 1.86911-L123- Into GUI 
Put "=IfiG141<2720*L123.""Note 3"".If(G141>l 10000*L 123,""Note 4"\909‘L123))" Into H141 
Put ""Into 1141 

KJr-nI'e.O 2810*10 126*0.1167)*((G129/(L122*L122I)"1.287)*(C130'(-0.6164)))*L1 23“ Into 01 42 

£{ “«If(G142<77 L123,"Note 3".MOl42>2922*tl2S.“Note 4**.22*L123)>* Into H142 
Put ""Into 1142 

{W nose cone} 

PUt = +f^.533E-^*U((^130/^)*^SqRt(UC^l 30/ 2) A 2)+({C 132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put ""Into 1143 

{W external Insulation} • 

Put "=(87+0.7243*C130+0.1071 *((C 130/2) A 2))*L 123 Into G144 

Put "N/A" Into HI44 
Put ""Into 1144 

pUt f "^E S S2.09 a 5^ C 05276*C130-0.0000846»C130*C130))*L123" IntoG145 
Put "N/A" Into HI45 
Put"" Into 1145 

(W aft skirt & attach} . „, . _ 

Put "=(Exp(2. 89+0.06343*C 130-0.00012*C130*C130))*L123" Into G146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G149" Into G147 
Put "N/A" Into HI47 
Put"" Into 1147 

Put "=(-1039-0.00204*(G149/L123)+2.854*((G133+G135)/L122)+0.07885*((C130/2) 2))*L123 Into G14 

Put "N/A" Into HI48 
Put "" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Page: 4 


Put"" Into HI49 
Put " M Into 1149 


{W stage} 

Put ■*U?O^0<4300M^23!""Note 3"",in0150>193000 , L123.""Note 
Put ""Into 1150 


4"",""""))" Into H150 


{W SRB} 

Put "=G149+G150" Into G151 
Put"" Into HI51 
Put"" Into 1151 

Pat^«( 32 . 18 *(O 128 /L 125 ) , Ln((C 131 +( 0151 /L 123 )J/lC 131 +(G 151 /L 123 H 0138 /L 123 ))H*L 124 " Into OI 5 i 

Put "N/A" Into HI52 
Put"" Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put ”N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=If(G 154<45000000*L 126,""Note 

Put ""Into 1154 


3"".If(G154>720000000*L 126,""Note 



""""))" Into H154 


{(Impulse)vac} 

Put "*C128*C129*L126" Into G155 
Put "=IflG155<52000000*L126,""Note 
Put"" Into 1155 


3"".I«G155>861000000*L126.""Note 4"".""""))" Into H155 


(Load Notes} 

Put "Note 1:" Into A135 „,oe 

Put "Cases with L/D greater than 5.6" Into Cl35 
Put "are difficult to wind w/o Joints." Into Cl36 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into C138 
Put "(Rbo) are tailorable between" Into Cl39 
Put "0.33 and 0.818 lps." Into Cl40 

Put "Note 3:" Into A142 

Put "Data is being extrapolated" Into C142 

Put "below range of regression." Into C143 

Put "Note 4:" Into A145 

Put 'Data is being extrapolated" Into Cl45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 





Figure 57. Nominal Composition of Hybrid Propellant 



Figure 58. Theoretical Exhaust Products at 1,000 psi Chamber 

Pressure Expanded to 14.7 psi 
Hybrid Propellant. 

TA3-0421 Fig 





Large Motors 

|23 March 1993 


Hybrid Propellants 


Meop, psia 

500 

500 

To 

1500 

Initial Area Ratio, Ei - 

8 

8 

To 

20 

(Favg)vac, lbf 

1,267.506 

280 K 

To 

21 M 

Bum Time, Tb, seconds - 

45 

45 

To 

200 

Nose Cone L/D 

1.3 

0.5 

To 

3.0 

Max Ox Flux, lbm/a-in*2 

0.2 

0.2 

To 

1.0 

Avg MR, O/F 

1.8 

1.8 

To 

2.8 

Push Weight. lbm 


MMIiis 

l&IH 



i mi 


Note Is Data is being extrapolated 
below range of regression. 

Note 2: Data is being extrapolated 
above range of regression. 


D nozzle exit, in 
(lsp)sl. sec-lbf/lbm 
(Isp)vac. sec-lbf/lbm 
(A throat)avg. ln A 2 
(R throat)avg. in 
(Favg)sl, lbf 
(Favg)vac, lbf 
L tank & case, in 
L/D case 
L nozzle, in 
D motor, in 
Total Length, in 
W oxidizer, lbm 
W fuel, lbm 
W propellant, lbm 
W nose cone, lbm 
W ext insul, lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W HRM. lbm 
W stage, lbm 
W HRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf-sec 
(Impulse)vac. lbf-sec 


sis-] 


132.8 
238.76 
284.48 

1.765.4 
23.7 

1,063.817 

1,267.506 

803.5 
4.91 

125.7 

163.5 
1.141.9 

128,454 

71,363 

199.818 

6.307.4 

921.5 
4,724 

23.240 

261 

1,666 

232.514 

3.712E+04 

2.696E+05 

1.568E+03 

8.594E-01 

4.787E+07 

5.704E+07 


* fc $$$ \ l s & a i I 


Figure 59. Printed Output - "Report" English Units 
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Figure 60. Printed Output - "Briefing" - Metric Units 

































Figure 61. Equations for Hybrid Rocket 

Booster Model 


TA3—0422 


Equations for Stage O 


niiiiitmsj 


cits 


Variable to be 
Calculated Filiation 

Nose Cone Weight, Ibm 

w„ CoHt - 3395 - 2098N„ d -0.4705(A/2) 2 + 2.533xl0' 5 {(A/2)/(A/2) 2 + (A r //dA) 2 } 

External Insulation Weight, lbm 

w btbuml «. m -87 + 0.7243A +0.107KA/2) 2 

Fwd Skirt and Attach Weight, lbm 

„(2.09S+0.0J2?6O« -0.0000846D,*) 

W FwdS klrt ~ e 

Aft Skirt and Attach Weight, lbm 

nr „(2.89 ♦0.063430, -0.00012D, 2 ) 

Separation System Weight, lbm 

Wstparatio* m 0.0011208 

Misc Weight, lbm 

W mllc - -1039 - 0.00204+2.854A«« a »*«/«+ 0.07885(A/2) 2 


TA3-0321 



AV 


Large Hybrid Motor Design Equations 



Vacuum specific Impulse, j spy = 314,4 _ 8.242^+0.4932^; where X = Ln\F? MU E ?”* OlF 36 **^ 1M _ 
Ibf-sec/lbm - 

Average Nozzle Throat i? r = 1.266 + 0.3718 Meop~ Q i0 ^F v 

Radius, in — 1 

Impulse vacuum, Ibm-sec / v = F V T b 

Diameter of Nozzle @ Exit, in Q n -2 J(R, - 0.0057*) 2 £< 

Average Sea Level Thrust, Ibf Frf — F* ~~ 3.6757 

Sea Level Specific Impulse, / 5 « vj/ = !2z£± 

lbf-sec/lbm Fv — 

I 1 SI t v r -0 48S6 7^1632 

Hybrid Roctet Motor diameter, £ >m _ 59 3 + 0.005607X- 1.136e- 9A 1 ; \where X-t v ro mtx i b 
External Nozzle Length,^ L „ = 190.1 -294.4^-205.3^ + 407.9A*; 

Tou. Length of Tank Plus . ,6.7 + 2 . 860 Fo^ 7 K° 4W 7t 4IW D^ ^ 5 Weo p - 0 ^O / ^ ^ 

Case, in 

Hybrid Rocket Motor length, in Lh 7 W = L n oi + ^r+C 

Booster Total Length, in Lhrb = Lhrm + N (/<jD m 

Fuel Used Weight, Ibm Wfuti — 0 9966^7*/ [/.spv(l + OIF)\ 


0 2 Used Weight, lbm 


Wo 2 = WjutiOfF 


Total Weight Propellant Used, W p = W/u*{ + Wo 2 

lbm __ 

Hybrid Rocket Motor Mass M/hfm ~ “5.324 + 6.696 X- 0.7267e - 6X 2 , where 
Fraction, dim 


X = Meop- 00 ' ^Ef mo> 'Fo^ w O/F^ mx9 r» M4171 /;° 0007,22 


Total Hybrid Rocket Motor Wmrm = W p fXifhfRM 
Weight, lbm _ _ 

Total Stage Component W„, = »W>i. + If'tototo- + ^ + Wstparum + *fW 

Wei ght, lbm _____ 

Total Hybrid Rocket Booster = IE hrm + 

weight, lbm _ _ 

Booster Ideal Velocity, ft/sec K(<w = /^ v l n 32.18 


Total Impulse Sea Level, 
Ibf-sec 


I,t = FsiTb 


RMSE = 1.9 
(280.3-317.8) 

RMSE = 0.9 
(7.5-93.9) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 3 
(84-636) 

; RMSE =53 
(45-1005) 

RMSE =71 
(654-3255) 

Analytical Eq. 
(746-3845) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 0.012 
(0.73-0.91) 


Analytical 

Equation 

Analytical Eq. 
(4,300-193 K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 






































































































































































































Figure 62. Script for Hybrid Rocket 

Booster Model 




27 March 1993 06:14:51 PM Parametric Database/Object 16 script 
Invalidate On 


Page: 1 


Manual Recalc 
Select Range A422 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A408 
Put "Hybrid Propellants" Into C408 
Put "23 March 1993" Into A409 


{Initial Independent Variable Setup} 


Put 500 Into C411 
Put 8 Into C412 


{Meop, psia} 
{Initial Area Ratio, El} 


Put 1267506 Into C413 
Put 45 Into C414 
Put 1.3 Into C415 
Put 0.2 Into C416 
Put 1.8 Into C417 
Put 1000000 Into C418 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 

{Nose Cone Length/Diameter} 
{Max Oxidizer Flux} 

(Average Oxidizer/Fuel Ratio, O/F} 
{Push Weight, lbm} 


{Load Range Information} 

Put "500 To 1500" Into D411 
Put "8 To 20" Into D412 
Put "280 K To 21 M" Into D413 
Put "45 To 200" Into D414 
Put "0.2 To 1.0" Into D416 
Put "1.8 To 2.8" Into D417 


{Load Range Limit Checks} 

Put "=If(C411<500, 1.0)" Into K411 
Put ”=If(C411> 1500. 1.0)" Into K412 
Put "=If(C412<8, 1,0)" Into K413 
Put "=If (C412>20, 1,0)" Into K414 
Put ”=If (C413<280000, 1,0)" Into K415 
Put "=If (C413>21000000, 1.0)" Into K416 
Put "=If (C414<45, 1,0)" Into K417 
Put "=If (C414>200, 1,0)" Into K418 
Put "=If (C416<0.2, 1,0)" Into K419 
Put "=If (C416>1.0. 1,0)" Into K420 
Put "=If (C417<1.8, 1.0)" Into K421 
Put "=If (C417>2.8, 1,0)* Into K422 


{Load Results Formulas, RMSE and correlation limits, and percent error} 
{D nozzle exit} 

Put "=(2*SqRt((((G415/L402)-0.005*C414) A 2)*C412))*L402" Into G411 
Put "N/A" Into H411 
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Put*"=LN((C413 A 0.1414)*(C412 A 3.938)*(C417 A 3.685)*(C414 A (-0.2526)))" Into M413 
Put "=(314 4-8.242*M412+0.4932*M413*M413)*L405" Into G413 

Put "=If(G413<280.3«L405,""Note l"",If(G413>317.8*L405.""Note 2"\1.9*L405))" Into H413 
Put ""Into 1413 

{(Isp)sl} 

Put "=((G413*G416)/(C413*L406))" Into G412 
Put "N/A* Into H412 
Put"" Into 1412 


Put "=( 1 ^ 2 ^H 0 . 3718 *C 41 1 A (*0.5035))*(C413 A 0.5123)*C414 A 0.007919)*L402" Into G415 

Put "=If(G415<7.5*L402,""Note l"",If(G415>93.9*L402,""Note 2 ,0.9 L402)) IntoH415 
Put ""Into 1415 


{(A throatjavg} 

Put "=3.141593*G415*G415" Into G414 
Put "N/A" Into H414 
Put "" Into 1414 


{(Favg)sl) 

Put "=(C413-11.54535*G411*G411/(L402*L402))*L406" Into G416 


Put "N/A" Into H416 
Put "" Into 1416 


{(Favg)vac} 

Put "=C413*L406" Into G417 
Put "N/A" Into H417 
Put"" Into 1417 


Put^=U6.7+2.86*(C416 A 0.1767)*(C413 A 0.4396)*(C414 A 0.4159)*((G421/L402) A (-0.3175)) 

*(C411 A (-0.002468))*(C417 A (-0.3836)))*L402" Into G418 
Put "=IfIG418<654*L402,""Note l"",If(G418>3255*L402.""Note 2"".71*L402))" Into H418 

Put ""Into 1418 


{L/D case} 

Put "=G418/G421" Into G419 
Put "N/A" Into H419 
Put "" Into 1419 

Put 1 "=(C412 A 0.1327)*((G415/L402) A 1.568)*(C413 A (-0.6560))*(C411 A 0.6478)" Into M420 
Put "=( 190.1-294.4*M420-205.3*M420*M420+407.9*M420 A 3)*L402" Into G420 
Put "=IflG420<45*L402,""Note l"",If(G420>1005*L402 > ""Note 2"",53*L402))" Into H420 
Put"" Into 1420 

J^”=(C413 A 0.5991)*(C416 A (-0.4856))*(C414 A 0.1652)" Into M421 

Put "=(59.8+0.005607*M421-1.136E-9*(M421 *M421 ))*L402" Into G421 

Put "=IfIG421<84*L402.""Note l"".If(G421>636*L402,"*Note 2"\3*L402))" Into H421 

Put"" Into 1421 
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{Total Length} 

Put "=G420+G418+C415*G42l" Into G422 
Put "N/A" Into H422 
Put"" Into 1422 

{W oxidizer} 

Put "=G424*C417" Into G423 
Put "N/A" Into H423 
Put"" Into 1423 


Put "=(0.9966*C413*C414/((G413/L405)*( 1+C417)))*L403" Into G424 

Put "N/A" Into H424 
Put"" Into 1424 

{W propellant} 

Put "=G423+G424" Into G425 
Put "N/A" Into H425 
Put"" Into 1425 


{W nose cone} 

Put "=(G421/L402)" Into M426 

PU ' " = +^f.533E-E^)*(((M426'/2)*SqRtIUfc4426/^)''2)+(lC415 , M426I"2)))"2))*L403" Into G426 

Put "N/A" Into H426 
Put"" Into 1426 


Kt e ^r8?fo I 724 l |-M426*0.1071-HM426/2)-2)|-L403- Into 0427 


Put "N/A" Into H427 
Put "" Into 1427 


Pu/"*(E^(2^95^o!o5276*M426-0.0000846*M426*M426))*L403" Into G428 

Put "N/A" Into H428 
Put"" Into 1428 


Put "=(Exp(2.89+0.06343*M426-0.00012*M426*M426))*L403" Into G429 
Put "N/A" Into H429 
Put"" Into 1429 


(W separation system} 

Put "= 0 . 001 1208*G432" Into G430 
Put "N/A" Into H430 
Put"" Into 1430 


p^t™=f-1039-0.00204*(G432/L403)+2.854 , ((G418+G420)/L402)+0.07885*((M426/2) A 2))*L403" Into G4 

Put "N/A" Into H431 
Put ""Into 1431 

{W HRM} 

Put ”=G425/G436" Into G432 
Put"" Into H432 
Put"" Into 1432 
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{W stage} 

Put "=Sum(G426. .G431)" Into G433 
Put "=Ifl(G433<4300*L403,""Note 1"" 


,If(G433>193000*L403,""Note 


Put"" Into 1433 


2"",""""))" Into H433 


{WHRB} 

Put "=G432+G433" Into G434 
Put"" Into H434 
Put"" Into 1434 


Kt"=^2.18*(G413/L405)‘Ln((C418+(G434/L403))/(C418+(G434/L403)-(G425/L403))))*L404 

Put "N/A" Into H435 
Put"" Into 1435 


^f--IC4ir"o01183)l'(C412*(-0.001051))'(C416-0.002209)VC417-(-0.003599)) 

.(C 414-0 604171)’(|G438/L406r 1-0.0007922))' Into M436 
Put «-.R 324+6 696*M436-(0.7267E-6)*M436*M436" Into G436 
Put "=IflG436<0.73.""Note l"".If[G436>0.91.""Note 2"\0.012))" Into H436 

Put"" Into 1436 


{(Impulse)sl} 

Put "=G416*C414" Into G437 
Put "N/A" Into H437 
Put"" Into 1437 


{(Impulse)vac} 

Put "=C413*C414*L406" Into G438 
Put "N/A" Into H438 
Put"" Into 1438 


{Load Notes} 

Put "Note 1:" Into A423 

Put "Data Is being extrapolated" Into C423 

Put "below range of regression." Into C424 

Put "Note 2:" Into A426 

Put "Data Is being extrapolated" Into C426 

Put "above range of regression." Into C427 

Automatic Recalc 
Invalidate Off 


Into G43f 



Liquid Engines 



ndent Terms 


Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


LOX/H2 


512.845 

3,277.0 

6.011 

77.0 


26 January 1993 



100 to 2,000 
1,000 to 5,000 
4 to 8 
10 to 400 


Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Gimbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


5.0 

80.0 

11.0 

0.98450 

-1.270 


70 to 140 
0 to 15 
0.85 to 0.999 
-2.154 to 1.856 



Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp, sec-lbf/lbm 
ODE C-Star. ft/sec 
L-Star. in 

ODE Isp, sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


512.845 

452.98 

418.772 

369.89 

7.753.62 

30.40 

468.92 

0.98450 

0.99993 

0.99283 

0.98904 

0.96666 


Throat Diameter, in 
Throat Area, in *2 
Chamber Length, in 
Nozzle Exit Diameter, in 
Engine Diameter, in 
Nozzle Length, in 
Engine Length, in 



Turbomachinery 

Preburners 

PB Hot Gas Manifold 

Thrust Chamber 

Nozzle 

Gimbal Bearing 
Valves and Controls 
Controller and Mount 
POGO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 


10.3 

83.2 

12.3 

90.3 
96.0 

119.5 

168.0 


:-VaIueip-' : 


1,725.0 

229.0 

558.0 

859.0 

1,250.0 

105.0 

722.0 

85.0 

94.0 

867.7 

89.0 

228.0 


Total Dry Weight 


6,811.7 


Fiqure63. Printed Output - "Report" - English Units - L0X/H2 
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Liquid Engines 

I ndenendentTenns 

Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Glmbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


LOX/RP 


26 January 1993 


Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp. sec-lbf/lbm 
ODE C-Star, ft/sec 
L-Star, in 

ODE Isp. sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 





2.020.700 

500 to 3,000 


1,161.0 

500 to 2,000 


2.270 

1.5 to 5 


16.0 

10 to 400 


10.0 



80.3 

70 to 140 


8.4 

0 to 15 


0.93930 

0.85 to 0.999 


-5.570 

-5.658 to -1.682 


iiliKWfflBHil 


Value 

2.020.700 

Throat Diameter. In 

34.6 

303.10 

Throat Area. ln A 2 

939.4 

1,799.811 

Chamber Length, In 

39.4 

269.70 

Nozzle Exit Diameter. In 

138.3 

5.949.15 

Engine Diameter, in 

143.5 

46.71 

Nozzle Length, in 

155.5 

337.15 

Engine Length, in 

220.4 

0.93930 



0.99796 

Weights, Ibm 

Value 

0.99186 

Turbopump and Mount 

4,488.5 

0.99210 

Thrust Chamber 

8,507.0 

0.92240 

Engine Mount 

467.0 


Oxidizer System 

652.0 


Fuel System 

642.4 


Purge System 

38.4 


Controls (Hydraulic) 

193.3 


Controls (Electrical) 

84.6 


Gimbal System Supply 

179.4 


Gas Generator System 

341.2 


Exhaust System 

1,261.6 


Flight Instrumentation 

145.1 


Ignition System 

49.C 


Interface System 

542.3 


Pressurization System 

1.030.C 


Insulation - Permanent 

71. E 


Thermal Insulation Set 

1,182.£ 


Total Drv Weight 

19,875.6 


Figure 65. Printed Output - "Report" - English Units - LOX/RP 
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ts&fi 

Input 

Input 

Parameter 

Value 

Fvac, Klbf 
(25 to 100) 

50.000 

Tc, °K 
(Fixed) 

2.450 

Pc, psia 

(500 to 2,000) 

784 

Epsilon, - 
(100 to 700) 

200 


Nuclear icn gina Weight, Envelope and Performance Function 
(NERVA Derived Prismatic Core) 



Figure 67. 


Sample Output of Nuclear Thermal Rocket Model 




Propulsion System 
Database Figures 


TA3-0428 




Figure 68. Propulsion System Database Opening Screen 




March 27,1993 Propulsion System Menu 

Please click Icon for selected propulsion system 




Figure 69. Main Menu of Propulsion Types 








More 

Data 


Summary of Propulsion Systems 


Engine Name 


Space Transportation Main Engine 


Acronym 


STME 



Reports I Date Entry 


Engine Class 

Cryogenic Liquid 


F-1 


F-1 


Hydrocarbon Liquid 


F-1 A 


F-1A 


Hydrocarbon Liquid 


J-2 


J-2 


Cryogenic Liquid 


5 

Simplified, High Performance J-2 

J-2S 

Cryogenic Liquid 

6 

Space Shuttle Main Engine 

SSME 

Cryogenic Liquid 

7 

RD-170 

RD-170 (Russian 
Designation 11D521) 

Hydrocarbon Liquid 

8 

Integrated Modular Engine 

IME 

Cryogenic Liquid 

9 

Space Shuttle Redesigned Solid Rocket Motor 

RSRM 

Solid Fuel 

10 

Nuclear Thermal Rocket, NERVA Derivative 

NTRND 

Nuclear Thermal 


Figure 70. Propulsion Systems Currently Available 











Liquids 



Figure 71. Reports Available for Each Propulsion System 















March 30,1993 


Engine Perform 


I 



Engine Name: 


Space Transportation Main Engine 


Class of Engine: Cryogenic Liquid 


Propellants' 


Oxidizer 


lUquid Oxygen 


Fuel 


iLiquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


6 . 00 < 


Nominal Chamber Pressure 


2,25 



Expansion Ratio 

Engine Design Life (Flights) 

Engine Thrust Data«-^^» 


45.0 


Vacuum 


Nominal 


552,981 


650,001 


Maximum 




Minimum 


357,981 


455,001 


Thrust data in units of Ibf 


Throttle Ratio, Percent' 


Vacuum 


Maximum 




Minimum 


64.71 


70.0< 


Specific impulse Data> 


Vacuum 


@Nomlnal Thrust 


365.1 


429.2! 


@Maximum Thrust 




@Mlnimum Thrust 


337.9! 


429.5< 


Specific Impulse data In units of seconds 


Figure 72. Typical Re 



Print | Reports | 


Chemical 



■ Engine Restarts 1 
Design 

Demonstrated 




'Engine Starts* 
Design 

Demonstrated 




'Engine Reliability, sec 
Design 

Demonstrated 


5,50( 



Nozzle Data> 


Type 



Length (in) 
Diameter (In) 
Throat Area (sq. In) 
Exit Area (sq. in) 
Expansion Ratio 


133.6! 


91.6! 


146.61 


6,600.382! 


45.0! 











Figure 73. 

Output for Space Transportation Main 
Engine (STME) Propulsion System 


TA3-0424 



STME Propulsion System 
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Class of Engine: Cryogenic Liqui 
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March 31,1993 


Background Information 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Uquid 


Chemical 


Background^ 

Th« STME was designed to support propulsion requirements of the National Launch System (NLS>/rbe IMLSl concept provides 

motors. 

ThA ctmf is canable of operating in either a NLS booster or core propulsion application. In either mode, die STME starts 

lb. operation of non. STMEbwillbe t^tad nnd deluded torn lb. veh,.i. 

with other elements while other STME's continue to operate. 

In the cor. mod., tha STME will continue to operate Her booate, (solid or liquid) separation until orbital (or ne« orbital) 
conditions are reached. 

The STME is a pump fed liquid oxygen and liquid hydrogen engine that has been designed for high reliability and low cost. It 
The STME 4 7 ^ ^ ^ turbopump assemblies. Gas generator propellants are 

start is accomplished by use of vehicle propellant tank head pressures. No helium spin start or solid start cartn g q 
The engine provides oxygen and hydrogen gases for propellant tank pressurization. 


Comments 



Source*" 08 * STME Technical Information Document. 6 Jan 1993; ICD, W^ng Draft^chmert J-3 1^ Sept 1992; 
Source. Draft Contract End Item Specification, Phase C/D, Revision 10, Attachment J-2, 26 May 1992 

Date: Entered as of 31 March 1993 

Entered by: Dan Levack_ — 



March 31,1993 


Propulsion System General Data 


Record Number 



Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 

TVC Method 
^Dimensions 
Maximum Length (Inches) 

Maximum Width (inches) 

Engine Mass (Ibm) 


101.221 


9 , 100 . 00 | 


INo 

-1 

iGas Generator 

1 £253 


1 45.00I 


Gimbal 

i 



Engine Thrust Data, Ibf 

I Nominal 

1 Maximum 



Minimum 









March 31,1993 


Engine Perform 



Engine Name: 


Space Transportation Main Engine 


Claes of Engine: Cryogenic Liquid 


Propellants 


Oxidizer 

Fuel 


ILIouid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


6 . 00 < 


Nominal Chamber Pressure 
Expansion Ratio 
Engine Design Life (Flights) 
'Engine Thrust Data— 


Nominal 


552,981 


Vacuum 

650,001 


45.0 


Maximum 




Minimum 


357,981 


455,001 


Thrust data In units of Ibf 


-Throttle Ratio, Percent—— 

Sea Level 

Maximum I _ 

Minimum I 64 - 7( 



Vacuum 



70.01 


Specific Impulse Datai 


@Nominal Thrust 
@Maxlmum Thrust 


364 . 5 < 



Vacuum 

428.50 



@Mlnlmum Thrust 


336 . 7 - 


428 . 0 ( 


Specific Impulse data In units of seconds 




nee 1 


Chemical 



•Engine Restarts' 
Design 

Demonstrated 




• Engine Starts' 
Design 

Demonstrated 




•Engine Reliability, sec< 
Design 

Demonstrated 


5 , 50 < 



r 


Nozzle Datai 


Type 



Length (In) 
Diameter (In) 
Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 


116.01 


91 . 6 : 


146.61 


6 , 597 . 4 ! 


45.01 










March 31,1993 


Engine Performance 2 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Engine Mass (lbm)< 

Total Mass w/TVC 
Total Mass wo/TVC 


9 . 100 . 



Chemical 



TVC« 


Method 





Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 





Engine Cycle 


Type 


IGas Generator 


Pressures — 

—Oxidizer Turbopump- 


Min Pump Inlet 
Turbine Inlet 



554.1 


- Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 



2 . 196.1 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures In psla 


161 ] 




Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbal 



Envelope Dimensions in inches 


97.1 

ioi.: 



Engine Component Masses 1 


Consonant AJocatforw 

TurbomacNnery 

Oxygen Turtoopump 
Fuel Turtnpump 


Nozzle 


igniter • CC 
-OQ 


1226 

1001 

1729 

92 

7 

7 


(System Hardware) 


Engine Tetti 




March is, 1993 start-Up/Shutdown Sequences 

Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 
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Start-Up/Shutdown Profiles 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 
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Interfaces 


Engine Name: Space Transportation Main Engine 
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Technology Development 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 





March 3i, 1993 Advanced Development Plan 



Advanced Development Plan 


ENGINE DEVELOPMEN T PROGRAM SCHEDULE - 20K V EHICLE 

- , i , I TaS I IMOI 2000 I 2001 I 
































Figure 74. 

Output for F-1 Propulsion System 



F-1 Propulsion System 
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March i 3 ,1993 Background Information 



■ Background— 

The F-l rocket engine development was initiated at Rocketdyne in January 1959 under the direction of NASA, MSFC The F-l 
?as developed to provide the power for the booster flight phase of the Saturn V vehicle A duster of five en^nes provided 
7 JlO.000 ItTof thrust in the fust stage. Sixty-five engines were flown on 13 Saturn V missions between 1967 and 1973 

with 100 percent success. A total of 98 production engines were delivered. 

The F 1 is a single-start fixed-thrust, liquid-bipropellant engine, calibrated to operate at a sea level thrust of 1,522,000 pounds 
»d 2 27 1S 'providing . specific impVkn of 265.4 second,. Hr. engine „ . r.U.ively simple des,gn n„ng l,qu,d 

mvnef Jd RP-1 (rocket Lie ofkeJLe) for pmpellnnts. The engine derrign i, milnble in . single or mult«ng.ne 

Although enj^e appKearkrr, wi for'od7» flighh qmdif.cndon mq.immeom were esmbhshed mrd demons,,,,ed 
at 20 starts for a total of 2,250 seconds. 

The engine features a two-piece thrust chamber that is tubular-walled and regeneratively cooled to the 10:1 expansion ratio 
m,„eandSillied L cooled with turtrin. exhaust gas ro the 16,1 expansion mdo pirn,.; a tlmat chamber mourned 
turbopump that has two centrifugal pumps spline-connected on a single shaft driven by a two-stage, direct dnve turbine 
one pteeLgid propeUanTducts fhat are Led in pairs to direct the fuel and oxidizer to the thrust chamber, and a hypergohe fluid 
cartridge that is usS for thrust chamber ignition. Power for the turbopump is supplied by a bipropellant gas 8 cn « rat °”y s * er " 
which bums high pressure fuel and oxidizer from the turbopump to drive the turbine. Turbine exhaust gas, prior to cooling th 

thrust chamber t Lie extension, is directed to a heat exchanger which conditions vehicle tank pressurants <°block is 
tank and helium for the fuel tank). Thrust vector changes are achieved by gimbaling the entire engi . g 
located on the thrust chamber dome, and actuator attach points are provided by two outriggers on the thrust chamber body. The 
RP-1 fuel is used as the working fluid for the gimbal actuators, for the engine control system, and for the turbopump bearing 

lubricant. 

The engine is started using a tank-head start with pressure-ladder sequence. Initially control pressure is supplied from the 
ground 8 Start is initiated by electrically firing the gas generator and nozzle extension pyrotechilie igniters and' * 

engine control valve start solenoid to open the main oxidizer valves and the gas generator valve. Propellants directed to the gas 
generator from the pump discharges (initially at tank head pressures) are combusted m the gas generator causing pump disch g 
pZTs toincrease. All subsequent start sequencing is accomplished by pressure actuated valves responding to bu,Id-up of fuel 

pump discharge pressure. 

Engine cutoff is initiated electrically by energizing the engine control valve stop solenoid. This removes opening pressure and 
fppTes dofg preLure to the pro^Jn. valves, km closing pressure is applied to the propeflant valves, orifices ,n the 
control lines sequence the gas generator valve, oxidizer valves, and fuel valves closed, m that or er. 

Engine production was terminated in 1969. 



Comments 


- References Packaae (BC91-74) Unpublished Rocketdyne Data; Technical Manual F I Rocket 

S ° UrCe: EngTne .VaSIlSi« - 12 May 1972); ihe Saturn V F-1 Engine Revisited, AIAA 

92-1547, 24 March 1992. 

Date: 1991 

Entered by: Dan Levack 
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Propulsion System General Data 


Creation Date 


18/31/92 


Modification Date 


Record Number 


] 13/30/93 


[ 


Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Oate Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

fm Propellants—^——————— 

Oxidizer iLlguld Oxygen (MIL-P-255086) 

Fuel 


[M 


I Hydrocarbon Llguld~| IChemlcal 


I Thermodynamic Expansion of Hot Gas 


[El 


[Saturn V Booster Engine 


I Rockwell International Corporation 


111 Successful Apollo / Saturn Flights 


[Yes 


ISept 1966 


[ 


2173 [ 


2.4101 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 
Expansion Ratio 


DZ= 

Zl 

INo 1 

IGas Generator 

1_ 

983 

cz 

TeTool 


TVC Method l Gimb - 



|" Engine Thrust Data, Ibf^ - ™ 


Vacuum 

Sea Level 

1 Nominal 

1 1,522,008| 

1 1,748,2001 

1 Maximum 

1 J 

1_ZZ1 



March 13,1993 


Engine Performance 1 


Engine Name: F-l 

Class of Engine: Hydrocarbon Liquid 


Chemical 


Propellants' 

Oxidizer 

Fuel 


ll Inuiri Oxvaen (MIL-P-255086] 


lRP-1 (MIL-P-2S576B] 


Mixture Ratio - EnginefThrust Chamber 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 

Engine Thrust Data——— 


2.271 


2.41 




Engine Restarts' 
Design 

Demonstrated 













March 7,1993 


Engine Performance 2 


Engine Name: F-1 

Class of Engine: Hydrocarbon Uquid 

r-Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


18 , 616.1 



Chemical 


TVC' 


Method 


iGimbal 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


Engine Cycle 


Type 


Gas Generator 


Pressures 

— Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



945.1 


-Fuel Turbopump 
Min Pump Inlet 
Turbine Inlet 


24.31 


945.1 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


Pressures In psia 


220 .' 





Diameter- 

Nozzle Exit 
Maximum 
Maximum Glmbal 


140.01 

143.51 



Envelope Dimensions in inches 


Engine Component Masses 


TTiruet Chamber 
Engine Mount 
Oxidizer bye tern 
Fuel System 
purge Syatma 
Controls (Hydraulic) 
Control* (Electrical) 
Glmbal System Supply 


nuhl Inetm mentation 
Ignition System 
Interface System 


Insulation - Permanent 
Thermal bmuladen Set 

Total Dry Welaht 


8.506.8 

467.0 

652.0 

642.4 

30.3 

163.3 

84.6 

179.6 
341.0 

693.7 

145.2 
4V.0 

642.3 
1 , 000.0 

71 J® 
1 . 163.4 

18.612.2 




February 20,1993 Start-Up/Shutdown Sequences 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Liquid 


Chemical 





February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: F-i 

Class of Engine: Hydrocarbon Liquid 


Thrust Profile 


Start 


Chemical 





Actuation Signal (sec) 



Shutdown 


110 



100 

CB 

Cutoff Impulse 


£ 90 

- \ 620,000 ± 24,000 lb-sec 


§ 80 

- \ 


= 70 



o 60 

\ 


o 50 

\ — Nominal 


40 



2 , 30 

N . 


«0 20 

\ 


l 10 



H 0 

_ 

i i i_i_i_i_uA— 


( 

■—— 1 y 

) ai 0.2 0.3 0.4 0.5 0.6 0.7 5.5 


Time From Shutdown Signal* (sec) 


Flowrate Profile 








February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: F-l 

Class of Engine: Hydrocarbon Liquid 


Isp Profile 


Chemical 







February 20,1993 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 


Interfaces— 

Interface Requirements 


tm 


rh-i 

T«U 


91 


Ml! 

HI 

70 

1US 



UHli 
-400 ta ISO 

MM41S 


ism 

neni 



IP LOB eeal pure* 



U09 


eta iso 

Pinw 

eetaieo 




OJWtel* 


Ota ISO 

Froaoerafrat# 

lOStetW 

Teeffl 

note mo 

Pre.wire »e*J 

ISO to MO 


Chemical 



Propellant Supply Requirements 
















































February 20,1993 


Technology Development 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Liquid 


Chemical 




Percent Cost 


March 24 ,1993 Advanced Development Plan 



Advanced Development Plan 1 


too 


eo< 


60* 


50* 


40* 


30- 


20 - 


test SUMMARY AS OF COMPLETION 
ENGINE TESTS 1,604 

ENGINE TIME 124,831 

FULL DURATION ON 

29 NEW ENGINES 27 REBUILT ENGINES 


COMPLETE CONTRACT —I 


COMPLETE 


COMPLETE COMPONBfT REQUAL -t 
ENGINEQUAL IISERI ES 
COMPLETE COMPONENT OUAL 
^COMPLETE CUAL REU ABUTY DEMO— 

|eNQINE Up DEMO COMPLETE—4 
PHASE II DYNAMIC STABILITY DEMO COMPLETE 
PHASE fcYNAMIC STABU TY OEMO 'COMPLETE —| 

STARTQUAL REUABIUTY DEMO 


BLOCK-1 ENGINE DESIGN RELEASE 
FIRST RATH? THRUST AND DURATION TEST —. 




“FIRST RATED POWER AMT^ 
DU RATI ON T/P TEST 
RRST BSIGINE 
MAINS TAG E TEST 


OON TRACT GO-AHEAD 
NASS-16 


10 * 


0 - 


START QUAL STABUTY DEMO ANOI 

COMPLETE ENGINE OUAL I S0TIES ■ 
RRST MSEC CLUSTER TEST—, 


COMPLETE RELEASa 
OUAL COMPONENTS! 
COMPLETE FRT-n 
DEMONSTRATE FR1— 


DYNAMIC STABILITY 
ACTIVATE TEST ^ 
STANDS 1C & ID 


CEU VER 
ENGINE 
F-1001 


RRST 

FLIGHT 


1969 


1960 


1961 





















Figure 75. 

Output for F-1A Propulsion System 



F-1A Propulsion System 
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March 13,1993 


Background Information 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid Chemical 


■ Backgrounds^— 

The F-1A engine is an uprated version of the F-l engine originally used as the first-stage booster propulsion system for the 
Saturn V launch vehicle. The engine produces a sea level thrust of 1,800,000 pounds vs. 1.522,00 for the F-l. Functionally, 
the engine is identical to the F-l. Refer to the F-l background information sheet for a general description of the engine 

configuration and operation. 

During the late 1960’s the F-l engine development program was actively pursuing upgrades and improvements on the 
flight-certified production engine. The most significant improvement was to the Mark 10 turbopump. Pump design 
modifications included reducing the turbine diameter from 35 to 30 inches, material changes to improve producibility and 
structural improvements to permit operation at higher power levels. These changes gathered over 15,000 seconds of test 
maturity in both component and engine tests. A 1,800,000 pound sea level thrust capability was demonstrated on two F-l A 
configuration development engines using the improved turbopump (Mark 10A). 

Step throttling of the engine from 1.800K to 1.350K and a condition monitoring system (CMS) are options which can be 
provided with the engine. CMS would enable holddown/shutdown capability on the launch pad and, dependent on vehicle 
configuration and mission requirements, engine out capability. 

A NASA-MSFC funded study in 1992 concluded F-l A production could readily be restarted (at substantially less cost than a 
new center line engine) using "state-of-the-practice" manufacturing processes. Five spare F-l flight engines in bonded storage at 
the Michaud Assembly Facility could be converted to the F 1A configuration to be used as "pathfinders" for assembly and test 
stand activation. Engine test facilities capable of testing the F-1A engine exist at USAF Phillips Lab in California; NASAs 
Marshall Space Flight Center in Huntsville, Alabama; and at Stennis Space Center in Mississippi. 


Comments 


• R ef erences 

Source: F-1/F-1A Engine Data Package (BC91-74), Unpublished Rocketdyne Data 


Date: 1991 

Entered by: Dan Levack 




March 30,1993 


Propulsion System General Data 


Record Number 



Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber 
Propellants 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 



Expansion Ratio 

TVC Method 
^Dimensions 
Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 


16.00I 




220.40I 


[ 


143.5Cj 


I 19.87S.40j 


“ Engine Thrust Data, Ibf 

HESSfl 

Vacuum 

Nominal 

I 1,800,00l| 

| 2.020.700I 

Maximum 

1 

1 _ _□ 

Minimum 

| 1,350,00l| 

| 1.570.7001 



March 13,1993 


Engine Performance 1 


Engine Name: 


F-1A 


Claes of Engine: Hydrocarbon Uquid 


Chemical 


Propellantsi 

Oxidizer 

Fuel 


li imild Oxvaen (MIL-P-255086) 


RP-1 (MIL-P-25576B] 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Ufe (Flights) 

Engine Thrust 

Sea Level 

Nominal 1 1 MM d 


2.271 


1.161 




Engine Restarts' 
Design 

Demonstrated 








March 7,1993 


Engine Performance 2 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Chemical 


— Engine Mass (Ibm)— 



Total Mass w/TVC 

cz 

19,875.41 

Total Mass wo/TVC 

d 

Z3 


TVC- 
Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 



Engine Cycle 
Type I Gas Generator 

Pressures 

— Oxidizer Turbopump 
Min Pump Inlet 

Turbine Inlet 


L 


[ 


] 


Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 


Pressures in psla 



Envelope' 


|— Length-— 

Nominal 


220.4 

Stowed 


- 1 

Extended 

l 

Maximum Gimbal 




Diameter-- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


L 


Envelope Dimensions in Inches 



Engine Component Masses' 


"TtTfBsptnfrpTJcrTfsnfn™ 
Thrust OismbM 
Engine Mount 
OncUasr System 
Fuel System 
Purge System 
Controls (Hydraulic) 
Controls (Electrical) 
QlmbeJ System Supply 
Qss Generator Svstem 
Exhaust Svstem 
Flight Instrumentation 
Ignition System 
Interface system 
Preset!rtastion System 
insulation - Permanent 
Thermal Insulation Set 


*TT88T" 

8 , 506.8 

487.0 

053.0 

643.4 
39.3 

103.3 
64 8 

170.5 
341.0 

1 . 261.6 

145.2 
40.0 

542.3 
1 . 030.0 

71.H 
1.183.4 








Thrust (percent of nominal) 


February 20,1993 Start 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Thrust Profile' 


110 

100 

90 

80 

70 

60 

50 

40 

30 

20 

10 

0 


Start 



0*2.0 3.0 4.0 5.0 

Time From Engine Control Valve 
Actuation Signal (sec) 


Flowrate Profile 




own Profiles 


Chemical 






February 20,1993 Start-Up/Shutdown Profiles 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 



Isp Profile 






rfaces 



















February 20,1993 


Technology Development 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 





February 20,1993 


Advanced Development Plan 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 





Figure 76. 

Output for J-2 Propulsion System 
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March 7,1993 


Engine Name: 


Background Information 


J-2 


Chemical 


Class of Engine: Cryogenic Liquid 

Background' 

The J-2 engine was developed to provide the power for the SIVB stage of the Saturn IB vehicle and for the SII and SIVB stages 
of the Saturn V vehicle. 

The J-2 rocket engine is a high-performance, multiple-restart engine that uses liquid oxygen for oxidizer and liquid hydrogen for 
fuel. Each propellant is pumped into the thrust chamber by separate gas-turbine-driven, d.rect-dnve turbopumps. The two 
turbopumps are powered in series by a single gas generator that uses the same propellants as the thrust chamber. The hmst 
chamber is tubular-wailed and is regeneratively cooled by circulating fuel through the tubes before the fuel is JJjectedI into the 
combustion area. The engine has a ref.llable start tank from which pressurized gaseous hydrogen is routed to the 
turbines for starting the engine. This feature, combined with the augmented spark ignition system, makes the J 2 a multi- 

engine. 

The J-2 engine envelope is 80.75 inches in diameter and 133 inches long and the engine weighs approximately 3,492 pounds 
dry Thrusfvector consol is achieved by gimbaling the entire engine. The gimbal is installed at the center of the thrus chamber 
injector dome, and gimbal actuator attach points are located on the thrust chamber body. The rocket engine comprises the 
propellant feed system, gas generating system, start system, ignition n system, control system, purge system, an e lg 

instrumentation system. 


■ Comments' 

No Comments. 


Source 6 " 068 Technical Data J-2 Rocket Engine, Change No. 12 (R-3825-1). Technical Data J-2 Rocket Engine 

(R-3825-1A) 

D a t e: 18 October 1972, 4 December 1973 

Entered by: Dan Levack 
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Propulsion System General Data 



Record Number 


Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
pa Propellants i 

Oxidizer ILIguid Oxygen 

Fuel 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 

TVC Method 
Dimensions 

Maximum Length (Inches) 

Maximum Width (inches) 

Engine Mass (Ibm) 



__ ___ 

iThermody namlc Expansion of Hot Gas 

U? 

Stages II and IVB of Saturn V Launch Vehicle 
Rockwell International Corporation 
lllsed on SIVB stage ot the Saturn IB and the 

[Yes' 






27.16| 




133.00) 


81.oo| 


4.050.00| 



Engine Thrust Data, lbf< 

Nominal 
Maximum 


Sea Level 


Vacuum 



161,548| 

1=1 

230,000| 


161,548| 

1=1 

230,0001 

1 

113,548) 

d 

182,0001 


Minimum 





March 13,1993 


Engine Performance 1 


Engine Name: J*2 

Class of Engine: Cryogenic Liquid 


Chemical 



i Propellants 
Oxidizer 
Fuel 

Mixture Ratio - Engine/Thrust Chamber 



Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 


27.16| 


m 


Engine Thrust Data*" 

Sea Level 

Vacuum 

Nominal 

| 

161,548| | 

230,0001 




Maximum 

| 

161,548| |_ 

230,000| 




Minimum 

1 

113,548| f 

182,000| 

I Thrust data In units of Ibf 1 


Sea Level 

Vacuum 

Maximum [Z- 1000 9 1— 

loo.oq 

Minimum 1 - 79 -°^ 1— 

79.001 



Engine Restarts 1 
Design 

Demonstrated 


c 

c 


Engine Starts 1 
Design 

Demonstrated 


c 

c 


Engine Reliability, sei 
Design 

Demonstrated 



■■Specific Impulse Data— 

Sea Level 

Vacuum 

@Nominal Thrust C 

298.44] 

424.90| 

@Maxlmum Thrust C 

298.44| 1 

424.901 

@Minimum Thrust C 

268.27] 1 

430.001 

I^Speciflc^Impul^^ 



Nozzle Data i 


Type [ 


Length (in) 

Diameter (in) 

Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 







March 7, 1993 


Engine Performance 2 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Chemical 



— Engine Mass (Ibm)*^ 



Total Mass w^TVC 

d 

3,492.0| 

Total Mass wo/TVC 

l= 



Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


■ Engine Cycle 
Type 





Gas Generator 


Pressures 
— Oxidizer Turbopump 
Min Pump Inlet 

Turbine Inlet 



33 



89.3| 


Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 


L 


Pressures in psia 



Envelope' 


r— Length --— 

Nominal 


133! 

Stowed 



Extended 

1 


Maximum Gimbal 

1 





r— Diameter' 


Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 


Engine Component Masses 1 





March 7,1993 Start-Up/Shutdown Sequences 



Engine Name: J-2 

Class of Engine: Cryogenic Liquid 

Startup Sequence' 


Chemical 




a Shutdown Sequence 








March 7,1993 


Start-Up/Shut 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 



own Profiles 


Chemical 



Time from Engine Cutoff (sec) 


0 


0 . 




















March 7,1993 


Start 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Isp Profile 



Mixture Ratio Profile 


Profiles 


Chemical 










March 7, 1993 


Engine Name: 
Class of Engine: 


J-2 

Cryogenic Liquid 


Interfaces 


Chemical 































Tests (k) 


March 13,1993 


Technology Development 


Engine Name: J-2 

Class of Engine: Cryogenic Uquld 


Chemical 


Technology Development 1 


J-2 Test Experience 


Total P&Q Production 
and Field) 


Total (R&D, Production 
and Field) 




I « 


62 63 64 65 66 67 68 69 70 


62 63 64 65 66 67 68 69 70 





March 24,1993 Advanced Development Plan 



Advanced Development Plan' 


COMPLETE CUM. I 

4 


COMPLETE QUAL I! 

4 



H— 1 — 1 — 1 —“—“—--1 

TEST SUMMARY AS OF 3-31-57 

ENGINE TESTS 

2075 

ENGINE CUM TlfcE, SEC 

180,861 

MAX TIME ON CNC ENGINE, SEC 

12,120 


COMPLETE QUALM 
RELIABILITY DEMO Ol 
I I I I I 1 

bOMPLETE QUAL II ENGINE TEST SERIES] 

I I I I I I 

COMPLETE OJALII REQUIREMENTS 


1 


1 

















































Figure 77. 


Output for Simplified, High 
Performance J-2 (J-2S) Propulsion 

System 
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March 7,1993 


Background Information 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 


Background i 

The J-2S rocket engine development program was initiated at Rocketdyne in 1965 under the direction of the National 
Aeronautira'and^pace Administration, Marshal. Space Flight Center. The J-2S is a simplified, higher thrust and performance 
version of the highly reliable J-2 engine. It uses liquid oxygen and liquid hydrogen for propellants. 

The J-2S is designed for use in a single or multi-engine installation. The engine is nominally calibrated to operate at a vacuum 
thrust of 265,000 pounds and 5.5:1 mixture ratio, providing a specific impulse of 436 seconds. 

Engine mixture ratio can be controlled (inflight) from 4.5:1 to 6.0:1. Control is accomplished by by-passing liquid oxygen 
from the discharge side of the oxidizer turbopump to the inlet side through an electroservo actuated variable position valve.(i.e., 

the propellant utilization valve). 

The thrust chamber is a tubular wall, regeneratively cooled design having a bell shaped nozzle with an expansion area ratio of 
40:1. A gimbal bearing, attached to the thrust chamber assembly, provides a thrust vector control capability of 7.5 d g 

The starting power for the turbopumps is provided by a solid propellant turbine starter (SPTS). Up to three SPTS units may be 
mounted on the engine to provide a multiple space re-start capability. 

The engine has a pneumatic control system for valve actuation. The pneumatic supply (gaseous helium) is provided from an 
engine mounted tank. An electrical control system, which employs solid state logic elements, sequences the engine s a an 

shutdown operations. The electrical power is stage supplied. 

A heat exchanger mounted in the turbine exhaust duct can provide either heated helium or heated oxygen for oxidizer tank 
pressurization. Heated hydrogen, tapped-off from the thrust chamber fuel injection manifold, is available for fuel tank 

pressurization. 

A 61 throttling capability has been demonstrated by regulating the tap-off turbine drive gases. Additional engine versatility can 
be achieved by operating in a low thrust, tank pressure-fed mode. This mode of operation may be used for on-orbit propulsive 

maneuvers, or pre-mainstage propellant settling. 

The J-2S design life is 30 starts and 3,750 seconds duration. Engine testing has demonstrated operation of the engine for a 
greater total duration and a greater number of engine starts. 


■ Comments' 

No Comments. 



Source*; 0068 J-2S Brochure (322-4977). The J-2 Rocket Engine (BC71-56). Unpublished Rocketdyne data 


Date: ?,1971 

Entered by: J- A. McClanahan. Dan Levack 




March 30,1993 PTOpUlSi 

Creation Date Modification D 

15/18/92 I 13 / 30/93 ~ 

Engine Name 

Class of Engine 

Propulsion Typo 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
^ Propellants — 

I Oxidizer lUauid Oxygen -Z 

I Fuel lUauid Hydrogen 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 
TVC Method 

— Dimensions*——— 

I Maximum Length (inches) 

I Maximum Width (Inches) 

I Engine Mass (Ibm) 

r Engine Thrust Data, lbf«“" 

Nominal L_ 

Maximum 1= 


Minimum 


n System General Data 


KllimhAP 
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Engine Name: 


Engine Performance 1 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Propellants 

Oxidizer 

Fuel 


Liquid Oxygen 
iLiquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psia) 
Expansion Ratio 
Engine Design Life (Flights) 
Engine Thrust 


Nominal 


Maximum 


1 96 ,go: 



Minimum 



Thrust data in units of ibf 


Throttle Ratio, Percent 


Maximum 

Minimum 


Specific Impulse Data 


@Nominal Thrust 
@Maximum Thrust 
@Minimum Thrust 




321.7! 


Vacuum 

265,001 


5.50< 


1,20 


40.0 




Vacuum 




Vacuum 

433.08 






Chemical 


5.831 


Engine Restarts 1 
Design 

Demonstrated 




Engine Starts 1 
Design 

Demonstrated 


Engine Reliability, sec 
Design 

Demonstrated 


■ Nozzle Data—■ 
Type I I 

Length (in) 

Diameter (In) 

Throat Area (sq. In) 
Exit Area (sq. in) 




3,75( 
11,50! 


Bell, Tubular Wall 


87.71 


76.81 


116.91 


4,671 


Specific Impulse data in units of seconds 


Expansion Ratio 


40.0( 






Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Engine Mass (ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


Chemical 



TVC 


Method 


iGimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 



7.5 



Engine Cycle 


Type 


I Tap-Off Turbine Drive 


Pressures 

— Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



115J 


- Fuel Turbo pump 
Min Pump Inlet 


Turbine Inlet 



1,021 


Envelope-^^^— 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures in psla 






Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 




116 . 


Engine Component Masses 




March 7,1993 Start-Up/Shutdown Sequences 



March 7,1993 


Start-Up/Shut 



own Profiles 


Chemical 






March 7,1993 


Start-Up/Shutdown Profiles 


Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Chemical 






March 7,1993 


Engine Name: Simplified, High Performance 

Class of Engine: Cryogenic Liquid 


Interfaces 


Chemical 

































March 7,1993 


Technology Development 


Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Chemical 





March 7,1993 


Advanced Development Plan 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Liquid 


Chemical 





Figure 78. 

Output for Space Shuttle Main 
Engine (SSME) Propulsion System 



SSME Propulsion System 
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February 22,1993 


Background Information 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 



.Background' 

to be kept within design limits. The engines are gimbaled to provide pitch, yaw and roll corttridunng , he orbiter boos 
phases. Gaseous hydrogen and oxygen are tapped off the engine for pressunzmg the external tank. 

A staged combustion power cycle coupled with high combustion chamber pressures is employed. In the SSME staged 

Input Notes: „ _ _ 

The performance characteristics given here are for the Flight-Phase 11 Configuration. 

Demonstrated life - The number of seconds shown represent all the components except the high pressure fuel turbopump 

fHPFTF) and the high pressure oxidizer turbopump (HPOTP). The number is for the least demonstrated time among tho 
(HPFTP) Md 8P the com l onents have been demonstrated for 15,000 seconds and the rest for 10,000 

2S“o, £ HPOTP, 83% of ,h. component have been demonelnned for 15,000 seconds and >he res. for 10,000 seconds. 

LPFTP - low pressure fuel turbopump 
HPFTP - high pressure fuel turbopump 
LPOTP - low pressure oxidizer turbopump 
HPOTP - high pressure oxidizer turbopump 
MFV - main fuel valve 
MOV - main oxidizer valve 
FPOV - fuel preburner oxidizer supply valve 
OPOV - oxidizer prebumer oxidizer supply valve 
CCV - coolant control valve 
FBV - fuel bypass valve 
OBV - oxidizer bypass valve 
MCC - main combustion chamber 


Comments 


No Comments. 




References RD8 7-i42 CPIA/M5 (Oct 1985), Space Shuttle Orbiter Vehicle/Main Engine ' n *® rf ®®! C°" tro1 
*° UrC * : OCmES”.* A Space Shflto Main Engine Pockel Date (RSS-8559-10. 


Date: 6-1-1991,10/85,13 July 1989, 22 August 1984 

Entered by: J. A. McClanahan, Dan Levack 



March 30, 1993 


I Creation Date 

Modification D 

1 |4/20/92 

“| J3/29/93 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants — 

Oxidizer IL Iculd Oxygen Z 

Fuel lUauld Hydrogen 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 

pa Dimensions—"— 
Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 

- Engine Thrust Data, Ibf— 

Nominal 
Maximum 


Minimum 


System General Data 


Record Number 



jCrvogenlc Liquid J iChemical 






|Q—- 

[ Staged Combustion 
1 3^021 

I 77-50j 

jGimbal 









March 13, 1993 


Engine 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


6.011 


I___ 

Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Rights) 

Engine Thrust Data^^^^^^*^" 

Sea Level 

Nominal I 375 -°-°4 [ 

Maximum I 418,30 4| [ 

Minimum I 209.204 } [ 

Thrust data In units of Ibf 


Sea Level 


Maximum I - —11L39 1— 

109.0011 

Minimum 5fUo| L 

65.00| 1 


i Specific Impulse Data— 

Sea Level 

Vacuum 

(©Nominal Thrust L 

362.451 1 

453.301 

(©Maximum Thrust [Z 

370.371 | _ 

453.601 

@Minimum Thrust L 

311.94| 1 

452.101 


Specific Impulse data In units of seconds 



v— 

3,026 



77.5C 


nz 

5 i 


Vacuum 
469,000| 

512,3001 

303,200| 


i Propellants 
Oxidizer 
Fuel 

Mixture Ratio - Engine/Thrust Chamber 




Length (in) 

d 

121.001 

Diameter (in) 

d 

90.23 

Throat Area (sq. in) 

d 

83^401 

Exit Area (sq. In) 

d 

6,463.5 

Expansion Ratio 

d 

77 . 50 I 










Total Mass w/TVC 
Total Mass wo/TVC 


■ Engine Cycle 
Type Staged Combustion 


Pressures — 

—Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



4,924.1 


- Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 



4,932. 


Envelope 

- Length-- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Engine Component Masses 


Pressures in psla 





Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbal 



Envelope Dimensions in inches 


Turbo machinery 
Pre burner* 
n Hot Oae ManUbU 


Noule 

Otmbal Bearing 
Valves and Controls 
Controller and Mount 
POOO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 




153 J 


Total Dry Weight 





February 20,1993 Start-Up/Shutdown Sequences 












Percent of Rated Power Level (RR-) 










February 22, 1993 Start-Up/Shutdown Profiles 


Engine Name: 

Space Shuttle Main Engine 


Class of Engine: 

Cryogenic Liquid 

Chemical 


Isp Profile 



& 360-|-1-1- \ - 

0 40 80 120 1 

Altitude (ft X 1000) 


Mixture Ratio Profile 












Engine Inlet Temperature, ° 


February 22,1993 


Interfaces 






February 22,1993 TCChllOlOQy 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


March 27,1993 


Advanced 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Advanced Development Plan 1 


GO-AHEAD 



jiijpi 

Kl 1 

[Si 

MBjg 

51 



FRST OOMPCMENT 
HCrr-RRE TEST 


ENGNC 


1 nones 



T_ 

nR! 




PE HOD B 
PRODUCTION 


lopment Plan 


Chemical 



PHASE il 
DEV & CERT 




FPLC-1 


FPLC-4 



PERIOD C + E 
PRODUCTION 



PERIOD C 

FLIGHT SU PPORT & OVE RHAU. 


FLIGHT CERTIFICATION 
EXTENSION_ 





1980 I 1961 I 1982 I 1983 | 1984 | 1 985Tl986 | 1967_ 


V ASSEMBLY COMPLETE DATES 
O NEED DATEOFENGNEB TO SUPPORTORBITERS 

























Figure 79. 

Output for RD-170 Propulsion 

System 



RD-170 Propulsion System 
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Background Information 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


■ Background^^ 

The RD-170 is the most powerful rocket engine currently in production anywhere in the world, and it is used as the strap-on 
booster on the Energyia heavy-lift launcher and (in the RD-171 variant) on the first stage of the Zenit launcher. It is a 
4-combustion chamber engine driven by a single turbopump assembly. 

Engine development was started in 1976 and the first flight of the RD-171 occurred during the first launch of a Zenit booster in 
1985. The first flight of the RD-170 occurred in May 1985 as the booster engine on Energiya. 

The West is aware of two successful unmanned Energiya launches, and one flight failure of a Zenit launcher is known to have 
occurred in the fall of 1990, which is believed to be related to a failure of the RD-171 engine. 


Reference Sources: 

1. ”RD-170~Super Powered Liquid Propellant Rocket Engine of New Generation”, by F. Chelkis, obtained September 1990 

2. “The RD-170 Liquid Rocket Engine”, NPO Energomash publication, undated. 

3. Letter, F. Chelkis to W. Ezell, August 28, 1991. 

4. Technology Detail Special Report 2, "USSR Rocket Engines, second edition", January 1992, by Technology Detail, 99 
Kingsway North, Clifton, York Y03 6JH, United Kingdom. 


— Comments^ 

p— References —■ 
1 Source: 

See “Engine Background” 

Date: 


-- 1 

Entered by: 

iJim Glass 

- zn _l 



March 30,1993 


Propulsion System General Data 



Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

PrOpellantSaaHaaam^^^— 

Oxidizer iLiquid Oxygen 


Kerosene 


[RD-170 


Hydrocarbon Liquid Chemical 


Thermodynamic Expansion of Hot Gas 


RD-170 (Russian Designation 11D521 


Booster Engine for Energiya 


NPR Energomash 


Two successful flights, one flight failure 


Yes (but not yet flown manned 


May 1987 


2,63 


Engine Design Life (Rights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 



[Staged Combustion 
I 3^561 


Expansion Ratio 
TVC Method 

DlmenslonsaMMM 

Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


36.81 


IGimbal 


158.0( 

56.3( 

23.507.CK 


Engine Thrust Data, Ibf 


Nominal 


1,630,54! 


Vacuum 

1,776,926 


Maximum 


1,719,391 


1,865,77: 


Minimum 


742,08! 


888,46! 














March 13,1993 


Engine 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


i Propellants) 
Oxidizer 


[Liquid Oxygen 


[Kerosene 


Fuel 

Mixture Ratio - Engine/Thrust Chamber [ 




Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 


3,556| 


36 ! 80 | 


C 


13 


hi Engine Thrust Data— 

Sea Level 

Vacuum 

Nominal 1 

1,630,545] | 

1,776,9261 

Maximum l~ 

1,719,39l| | 

1,865,7721 

Minimum IT 

742,0821 

888,463 

Thrust data in units of Ibf 


r-Throttle Ratio, Percent' 


Sea Level 


Vacuum 


Maximum 

Minimum 


1-C= 

105.001 

1_1 l_ 

49.001 


■ Specific Impulse Data 

@Nominal Thrust 
@Maxlmum Thrust 
@Mlnlmum Thrust 


Sea Level 

Vacuum 

l—- 

309.241 j 

337.001 


_1 L" 

_J 

1 

1 

i l: 

J 


Specific Impulse data In units of seconds 


ance 1 


Chemical 


™ Engine Restarts" 
Design 

1 

=□ 

Demonstrated 

1 

o| 




p- Engine Starts— 



Design 


io| 



Demonstrated 

1_ 

19| 



Design [- 

1.6501 

Demonstrated LI— 

2,567| 



3 Type 1 Bell with helical 

slotted liner] 

Length (in) 

c= 

70.00| 

Diameter (In) 

cz 

112.601 

Throat Area (sq. In) 

m 

270.601 

Exit Area (sq. in) 

d 

9,958.08 

Expansion Ratio 


36T80| 






February 20,1993 


Engine Performance 2 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Chemical 


* Engine Mass 


Total Mass w/TVC 

23,507.o| 

Total Mass wo/TVC 

140.4 


TVC 
Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


] 


8.01 


■ Engine Cycle 
Type 



Staged Combustion 



Envelope' 


Envelope Dimensions in inches 


|— Length--- 


p- Diameter-— - 

Nominal 158 


Nozzle Exit 56.3 

Stowed 


Maximum | 

Fxtended 


Maximum Gimbal 1 

Maximum Gimbal 1 




Engine Component Masses 




February 20,1993 Start-Up/Shutdown Sequences 




February 20,1993 


Start-Up/Shutdown Profiles 









February 20,1993 


Start-Up/Shutdown Profiles 








February 22,1993 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Interfaces 


Summary of Quo tad Russian Valuss for 
RD-170 Englna 



.11 


Chemical 



Summary of Quotad Russian Valuss for 
RD-170 Englna 
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Technology Development 


Engine Name: 

RD-170 


Class of Engine: 

Hydrocarbon Liquid 

Chemical 





February 20,1993 Advanced Development Plan 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


Advanced Development Plan 



Figure 80. 

Output for Advanced LOX/H2 Engine 

(IME) Propulsion System 


TA3-0317 



IME Propulsion System 
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March 7,1993 


Background Information 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Uquid 


Chemical 


■ Background— 

An Integrated Modular Engine system design was developed which meets Air Force National Launch System Upper Stage 
design requirements. The resulting Integrated Modular Engine (IME) is a 30,000 lb thrust L02/LH2 propulsion system powered 
by a hybrid expander cycle using three bell thrust chambers and two turbopump sets. The modular design is adaptable to a wide 
range of applications via adding additional thrust chamber and turbopump modules. The propulsion system attributes include 
enhanced performance, operability, and reliability. Specific impulse performance is 480 seconds vacuum. Propulsion system 
launch operability is enhanced as the system requires loading only two fluids on the pad: L02 and LH2. Reliability 
improvements include a simple design with no pneumatics, hydraulics or helium purges and a backup turbopump module. In 
addition, gaseous hydrogen and oxygen for tank pressurization could also be used to supply small GH2 and G02 RCS thrusters, 
eliminating the need for a storable propellant (hydrazine) RCS system on the stage. 

Quality Function Deployment methodology was used to refine propulsion requirements, evolve design strategies and develop an 
exceptionally capable propulsion system. The IME study identified technology programs, described risks and minimization via 
backup positions and presented a cost effective development program. Engine average unit cost is estimated to be about S2.6M 
and a development program cost is estimated to be about $45M. 


Comments 

No Comments. 


n References 

Source: RI/RD92-134 (Operational Integrated Modular Engine Study) 


Date: 


3-4-93 


Entered by: T. J. Harmon 
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Propulsion System General Data 


Record Number 



Engine Name 

Class o! Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 

Oxidizer liquid Oxygen 
Fuel 


Engine Design Ufe (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


iCrvooenlc Liquid 1 IChemical 



I Air Force Upper Stage 



[Study: RI/RD90-134 


[ 


|1 May 1992 


[ 


6 . 000 | [ 


iHvbrid: Fuel Side Expander, Oxld Side Prebumer 

I ] IE 


Expansion Ratio 
TVC Method 


[ 


700.001 


[Differential Throttling 


Maximum Length (inches) 

[= 

87.70| 

Maximum Width (Inches) 

Engine Mass (Ibm) 

E= 

136.001 

1,048.00| 


r Engine Thrust Data, Ibf 

Nominal 

Maximum 


Sea Level 


1 

15,3931 



i 


nz 

i 


Vacuum 





| 

wmmm 



■—1 


Minimum 




March 13,1993 


Engine 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


— Propellants^— 



Oxidizer 

lUquid Oxygen 




Fuel 

lUquId Hydrogen 




Mixture Ratio - 

Engine/Thrust Chamber [_ 



Nominal Chamber Pressure (psla) I 1 t 74 ^ 

Expansion Ratio I . 700 00 i 

Engine Design Life (Flights) I 3 


Nominal Chamber Pressure (psla) I 1 t 74 ^ 

Expansion Ratio 1 . 700 00 i 

Engine Design Life (Flights) I 31 

•m Engine Thrust Data-^^^^™*"*"™^^— 


Sea Level Vacuum 

Nominal I 15.3931 I 30,000| 

Maximum I I I I 

Minimum I I I I 

Thrust data In units of Ibf 


—Throttle Ratio, 

Sea Level 

Vacuum 

Maximum 

1 ~ 1 1 

1 




Minimum 

1 1 c 

1 





r “ 

Sea Level 


Vacuum 

I ©Nominal Thrust L 

246.281 


480.001 

1 ©Maximum Thrust f~ 

_ "n 


__n 


1 ©Minimum Thrust j 

i 


i 

Specific Impulse data In units of seconds 


ance 1 


Chemical 


[ 


Engine Restarts 
Design [ 

Demonstrated L 


■■Engine Starts™ 



Design 

1 

3| 



Demonstrated 

1 """ 

| 


Engine Reliability, sec^“"^^^^^— 
Design 1 2 t 2 22l 

Demonstrated I I 



1 Type | 3 Bell Modules, Tubular Wall 

Length (in) [ 

87.701 

Diameter (In) [ 

35.57 

Throat Area (sq. in) [ 

2.84 

Exit Area (sq. In) [ 

1,988 

Expansion Ratio [ 

700.001 






March 7,1993 


Engine Performance 2 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


1 . 048 . 



Chemical 


TVC 


Method 


Differential Throttling 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


Engine Cycle 

7y pe | Hybrid: Fuel Side Expander. Oxid Side Prebumer 


Pressures 

— Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



4 , 843 . 


- Fuel Turbopump 
Min Pump Inlet 


Turbine Inlet 



2 , 847 . 


Envelope— 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


Pressures in psia 






Diameter- 

Nozzle Exit 

Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


136.1 

136 .' 


136.1 


■ Engine Component Masses 1 — 

Component Mass. Ibm 

Thrust Chambers (3) 
Turbomachinery - High Pressure (4) 
Turbomachinery - Low Pressure (4) 
Propellant Valves, Ducts, Flanges 
External LH2 Feed Line 
Thrust Mount Cap 


502 

102 

28 

211 

20 

3 


Preburner (2) 

GOX Heat Exchanger (2) 

Controller 

Harness and Sensors 
Ignition System 

Misc Components and Contingency 




March 13,1993 


Start-Up/Shutdown Sequences 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Chemical 


Startup Sequence' 



Ch amber Pressure 


75 msec 


Oxygen In 


ectlon Press ure 


L^<* Ox Valve Open 

i t i r— * 
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Start-Up/Shutdown Profiles 
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Start-Up/Shutdown Profiles 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Chemical 






March 7,1993 


Engine Name: Integrated Modular 

Class of Engine: Cryogenic Liquid 


Interfaces 






March 13,1993 


Technology 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


Technology Development 


FY 




1004 


TECHNOLOGY PROGRAM 

• MILESTONES 

• TECHNOLOGY 

(MATERIALS, PROCESSES, PARTS, COMP.) 

• TEST BED CONSTRUCTION 


*VB 


* COMPONENT TESTING M TEST BED 


Development 


Chemical 
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Advanced Development Plan 






Figure 81. 


Output for Space Shuttle Redesigned 
Solid Rocket Motor (RSRM) 
Propulsion System 


TA3-0318 



RSRM Propulsion System 
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Length (in) 1,513.4 

Weight (Ibm) 1,255,979 
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Background Information 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


■ Background 

The original design and development of the SRM occurred during the mid-1970s and the fast shuttle flight was in April 1981. Modifications were made to 
ZZfl performance in th. early 1980s with the design referred to as the high performance motor (HPM). Ute final configuration< .he HPM was first 
launched on the shuttle in August of 1983 (STS-8). The design presented here commenced in mtd-1986 and is referred to as the RSRM. It first fie 

Ma rsh a l l Space Flight Center (MSFQ has the overall management responsibility for the design and procurement of the solid rocket boosters (SRB). Thiokol 
Smioe'ojxnutoru is theooMractor responsible for the development and production of the SRMs. the major component of the SRB. United Space Boosters. Inc. 
(USBoXunnyvale. California, has responsibility for the SRB aft and forward skirt refurbishment and rassembly. USB1 also su ^ s d 

plates, tunnel coven, and external tank (ET) attach ring, while the joint venture of Lockheed Space Operations Company (composed of Uurkheed, Tluokol, and 

Grumman) has the contract for the SRM and SRB assembly, checkout, launch, recovery, and disassembly. 

The two SRMs on the Space Shuttle provide the main thrust to lift the vehicle off the pad and up to an altitude of about 150,000 ft, 24 nmi (28 mi). On the 
pad, the two SRBs support the entire weight of the ET and orbiter and transmit the weight load through their structure to the mobile launch P la *°™ ^ 

RSRM booster has a thrust (sea level) of 2.9 Mlb at launch. They are ignited after the three shuttle main engines total thrust level is venfied. The two SRMs 
provide 71.4 percent of the thrust at liftoff and accelerate the shuttle to approximately 3,100 mph before separating from the remainder of the shuttle launch 
vehicle. SRB apogee occurs 75 sec after SRB separation, at an altitude of 220,000 ft, 35 nmi (41 mi) down range. SRB impact occurs m the ocean 

approximately 122 nmi (141 mi) down range* 

The SRMs are the largest solid propellant motors ever flown and the first designed for reuse. Each is 126.11 ft (1,513.38 in.) long and 12.16 ft (146.08 in.) in 
diameter. At launch, each weighs 1,255,978 lb of which 88 percent, 1,107.168 lb, is propellant The boosters are designed to be used 20 times. 

Primary elements of each booster are the motor (including case, propellant igniter, and nozzle), structure, separation systems, operational flight 
instrumentation, recovery avionics, pyrotechnics, deceleration system, thrust vector control system, and range safely destruct system. 

Each booster is attached to the ET at the SRB’s aft frame by two lateral struts and a diagonal strut. The forward end of each SRB is attached to the ET at the 
forward end of the SRB forward skirt. On the launch pad, each booster also is attached to the mobile launch platform at the aft skirt by four bolts which are 

severed by small explosives at liftoff. 

The propellant mixture in each SRB motor consists of ammonium perchlorate (oxidizer, approximately 69.7 percent by weight), aluminum (fuel, 16 percent), 
iron oxide (a bum rate catalyst, approximately 0.3 percent), a polymer (a binder that holds the mixture together, 12.04 percent), and an epoxy curing agen 
(1.96 percent). The propellant is molded into an 11-poinl star-shaped perforation in the forward portion of the forward segment that transitions into ^cylindrical 
perforation (CP) grain in the aft portion of the forward segment. Each of the three aft segments have aft tapered CP grains. This configuration provi es ig 
thrust at ignition, then reduces the thrust by approximately one-third, 20 sec after liftoff to prevent ovetstressing of the vehicle during maximum dynamic 

pressure (Max Q). 

Each RSRM is made up of four solid rocket motor casting segments. The segmented design provides maximum flexibility in RSRM fabrication, 
transportation, and handling. Each segment is shipped to the launch site on a heavy duty railcar with a specially built cover. 

The n~~t> expansion ratio of each booster is 7.72:1. The moveable nozzle is gimbaled for thrust vector control (TVC) direction. Each SRB has its °wn 
redundant auxiliary power units and hydraulic pumps. The omnidirectional gimbaling capability is 8 deg. Each nozzle has a carbon cloth phenolic liner which 
erodes and chare during firing. The nozzle is a convergent-divergent, movable design in which an aft pivot-point flexible bearing re the g.mbal mechanism. 

The cone-shaped aft skirt reacts the aft loads between the SRB and the mobile launch platform. Eight separation motors, four mounted on the aft skirtand four 
mounted on theforward skirt provide the thrust and directional control to dear the SRBs from the orbiter and external tank after booster separation. The aft skirt 
contained avionics and TVC system which consists of two auxiliary power units, hydraulic pumps, and hydraulic system. 


m Comments 
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Propulsion System General Data 



Record Number 


[ 


1 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
^Propellants i 


iSpace Shuttle Redesigned Solid Rocket Motor 

| iChemical 




] 


I Thermodynamic Expansion of Hot Gas 




|CTO 


IThiokol 




[Yes 


[1988 


] [ 


Fuel 


——- 1 

IAP 

i 

lAluminum Powder 

_Z] 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 

TVC Method 
Dimensions' 

Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (ibm) 


1.513.38) 


[ 


152.60j 


I 1,255,979.001 


INo 



i-- 

i_ 

612) 



7.72| 


iGimbal 1 


f- Engine Thrust Data, Ibf 



Nominal 

Maximum 


1 2.146,37l| 

US 


1_ -3 

l — 

1 

1 "□ 

cz 

1 


Minimum 









February 14,1993 


Motor Performance 1 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


■•Propellant Composition" 





Material 



Function 


|AP 

3 

1 69.7 | 

(Oxidizer 

-1 

lAluminum Power 

1 

1 16 | 

iFuel 

ZD 

|HB Polymer (PBAN) 


1 12.04 1 

| Binder 

ZD 

|Epoxv Resin 

□ 

1 1.96 1 

|Curina Agent 

ZD 

(Ferric Oxide (Fe203) 

□ 

1 0.3 | 

|Burn Rate Catalyst 

ZD 

i 

□ 

1 =□ 

1 

ZD 

i 

1 


1__ 

1 



Motor Thrust, Ibf—^— 

Maximum Expected Operating 
Maximum Operating 
Burn Time Average 
Action Time Average 


i 

Sea Level 

Vacuum 

c= 

3.348,37l| T 

3,607,009 

1= 

3,055,371| T 

3,314,009 

1= 

2,337,37l| T 

2,596,000| 

c 

2,146,371| f 

2,405,009 



Sea Level 

Vacuum 

Bum Time 

1 260,850,6361 

I 289,713,6001 

Action Time 

1 264,862,21 t \ 

1 296,777,0001 


■i Throttle Ratio— 

Sea Level 

Vacuum 

Maximum 

1 ~D d 

1 

Minimum 

D \Z 





Nozzle Data 
Type 


Specific Impulse, sec-lbf/lbnr 


Sea Level 


Vacuum 


Burn Time Avg 
Action Time Avg 


1- 

dZ 

1 



238.731 1 

267.59 


IBell - carbon phenolic ablative 


Length (in) 
Diameter (in) 
Throat Area (sq. in) 
Expansion Ratio 


[ 


178,751 


149.671 


2,27ffl 


7.72 


Submergence Ratio, percent [ 


19 



February 22,1993 


Motor Performance 2 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


^Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 



Envelope 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


— Length-- 

Nominal 

d 

1513.381 

Stowed 

EH 

1 

Extended 

in 

n 

Maximum Gimbal 

[ 





i— Diameter- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in inches 


L 


152.6| 



Engine Component Masses' 


Weights. Ibm 

Case 

98,010 

Propellant 

Motor 

Igniter 

1,107,035 

134 

Insulation 

20,191 

External Insulation 

637 

Liner 

1,347 

Shipping Segment 

1,247,802 

Inhibitor 

1,800 

Items Shipped Separate 


Igniter Inerts 

Systems Tunnel 
Instrumentation 

Joint Heater Cable 

Nozzle-to-Forward Section 

485 

533 

80 

24 

17,524 

Exit Cone* 

Separation System 

Stiffener Rings* 

Joint Heater System 

Exit Cone Installation 

S&A Installation 

RSRM Installation 

System Tunnel Joints 

6,193 

231 

908 

348 

22 

15 

439 

21 



Total 

1,255,979 


With external insulation installed 




February 22,1993 start-Up/Shutdown Sequences 



Expected Nominal Operational RSRM Sequence 


Time (seel AcM tt 

-6.0 SSME Ignition 

0.0 Fire signal to Ignition system Initiators 

0.23 RSRM liftoff at 563.5 psia chamber pressure 

21.5 Burnout of star section web in forward segment 

78.5 Burnout of aft tapered section in aft segment commences 

111.6 Burnout of aft tapered section in aft segment complete and tailoff commences 

122.2 Separation sequence Initiated; chamber pressure Is 50 psia 

125.9 RSRM physically separated (approximately) 

127.1 Propellant burnout 

396.2 Nozzle extension is severed and jettisoned 

405.5 Splashdown 


February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


Isp Profile 




Noxrfa 





Headend 

Stagnation 

Vacuum 

Total Maaa 

Specific 

Time 

Pressure 

Praaaura 

Thrust 

Row Rata 

Imptuee 

seconds 

peia 

psia 

to1 

tombac 

sac-W/tom 


(Nominal 60*F and 0.36® Ips Bom Rais) 



1.0 

010.93 

817.86 

3,177.878 

11.646.3 

268.20 

2.0 

696.99 

812.63 

3,182,380 

11,783.2 

268.36 

4.0 

690.66 

816.74 

3,196,184 

11,691.1 

266.79 

6.0 

896.56 

840.37 

3,298,001 

12.243 4 

269.37 

12.0 

687.96 

640.91 

3,314,302 

12.291.9 

269.64 

16.0 

879.63 

639.04 

3,321.176 

12,306.2 

269.90 

20.0 

873.86 

637.86 

3,330,801 

12,326.8 

270.16 

24.0 

632.69 

802.26 

3.198.880 

11,844.9 

270.06 

28.0 

778.24 

753.37 

3,009.303 

11,160.2 

269.66 

32.0 

735.86 

716.26 

2,862,180 

10,630.1 

269.26 

36.0 

699.16 

681.98 

2.733,822 

10,167.9 

266.67 

40.0 

664.90 

660.61 

2.612.686 

9,731.1 

266.49 

44.0 

638.28 

626.28 

2,619,380 

9.396.4 

268.12 

46.0 

615.63 

806.40 

2,439.666 

9,111.0 

267.77 

52.0 

594.16 

586.27 

2.362.841 

6,636.1 

267.42 

56.0 

800.75 

592.61 

2.396.414 

6.967.5 

267.23 

60.0 

610.67 

603.19 

2,443.416 

9,149.3 

267.06 

640 

622.55 

615.64 

2.496,140 

9,360.1 

266.89 

68.0 

629.32 

622.96 

2.532.199 

9,4943 

266.71 

72.0 

635.40 

629.56 

2.563.350 

9.6179 

266.52 

760 

637.20 

631.84 

2.577.041 

9,6766 

266.32 

60.0 

624.26 

519.37 

2.630,472 

9,510.6 

266.07 




NozzJ* 





Headend 

Stagnation 

Vacuum 

Total Mas* 

Specific 

Time 

Praaaura 

Praaaura 

Throat 

Bow Rato 

Irrtplusa 

second* 

pale 

ptia 

tor 

iboVtac 

aec-totfbm 


(Nominal 80 T and 0.368 ips 

Bum Rate) 



64.0 

597.97 

593.56 

2.430,344 

9.136.5 

265.95 

88.0 

586.47 

561.54 

2,304,312 

8,669.4 

265.00 

92.0 

539.01 

536.47 

2,202,168 

8,289.2 

265.67 

96.0 

516.03 

511.87 

2.109,693 

7,944.9 

265.54 

100.0 

489.72 

486.88 

2,011,079 

7,577.5 

265.40 

104.0 

469.83 

467.32 

1,891,307 

7,133.3 

266.14 

106.0 

426.36 

424.16 

1,756,306 

6,631.5 

264.84 

112.0 

367.07 

366.03 

1,506,404 

5,727.9 

262.99 

114.0 

264.86 

263.61 

1,081.918 

4,147.6 

260.65 

116.0 

170.56 

169.74 

670,474 

2,680.9 

250.09 

118.0 

109,72 

109.20 

421.968 

1,731.3 

243.73 

118.4 

99.75 

99.28 

383.268 

1.575.3 

243.31 

116.8 

90.37 

89.94 

346,920 

1,428.3 

242.89 

119.2 

82.02 

81.64 

314,600 

1,297.5 

242.47 

119.6 

73.80 

73.26 

282,061 

1,165.4 

242.03 

120.0 

66.33 

65.02 

250,136 

1,035.5 

241.57 

120.4 

57.39 

57.12 

222,727 

910.5 

244.61 

120.8 

60.15 

49.91 

197,245 

796.5 

247.64 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131.574 

519.3 

253.36 

122.0 

25.39 

25.27 

103,860 

405.5 

256.14 

122.4 

19.63 

19.53 

81,296 

314.0 

256 86 



Pressure Profile 









February 20, 1993 


Start-Up/Shutdown Profiles 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 



Flowrate Profile 


Time 

seconds 


Nozzle 

Headend Stagnation Vacuum 

Presaure Preeaure Thru* 

paia peia to* 

(Nominal 60 *F and 0 368 ips Bum Rate) 


910.93 

817.86 

3,177,675 

896.99 

812.63 

3,162,360 

990.56 

818.74 

3.196,164 

896.58 

640.37 

3,296,001 

667 95 

640.91 

3,314,362 

879.63 

639.04 

3,321,175 

873.65 

637.86 

3,330,601 

832.69 

602.25 

3.196.800 

778.24 

753.37 

3,009,303 

736.86 

715.26 

2,662,160 

699.16 

661.96 

2,733.622 

654.90 

660.61 

2.612.606 

638.26 

626.26 

2,619,360 

615.63 

606 40 

2,439,666 

594.16 

586.27 

2.362,641 

600.75 

592.61 

2,396,414 

610.67 

603.19 

2,443,416 

622.55 

615.64 

2,496.140 

629.32 

622.96 

2.532.199 

635.40 

629 55 

2.563,350 

637.20 

631.64 

2,577,041 

624 26 

619 37 

2.530,472 


Total M a as 
Flow Rale 
IbnYeec 


11.848.3 
11,783.2 

11.891.1 

12.243.4 
12,291.9 

12.306.2 

12.326.8 

11.844.9 

11.160.2 
10,630.1 

10.167.9 

9.731.1 
9,396.4 
9,111.0 

6.836.1 

6.967.6 

9.149.3 

9.360.1 

9.494.3 
9.617.9 

9.676.6 

9.510.6 


Specific 

Imptuse 


266.20 
266 38 
266.79 
269.37 

269.64 
269.90 
270.16 
270.06 

269.65 
269.25 
266.67 
266.49 
26612 
267.77 
267.42 
267.23 
267.06 
266.89 
266.71 
266.52 
266.32 
266.07 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Maas 

Specific 

TVne 

Preeaure 

Pressure 

Thru* 

Row Rate 

Impluse 

seconds 

peia 

peia 

Ibf 

ttxrVsec 

sec-lbt/lbm 


(Nominal 60 *F and 0.366 ipe Bum Rata) 



64.0 

597.97 

593.56 

2,430,344 

9,136.6 

266.95 

86.0 

566.47 

661.64 

2,304,312 

8,669.4 

265.80 

92.0 

639.01 

536.47 

2,202,168 

8,289.2 

266.67 

96.0 

516.03 

511.67 

2,109.693 

7,944.9 

265.54 

100.0 

489.72 

486.86 

2,011,079 

7,577.5 

265.40 

104.0 

459.83 

467.32 

1,891,307 

7,133.3 

265.14 

106.0 

426.36 

424.15 

1,756,306 

6,631.5 

264.84 

112.0 

367.07 

366.03 

1,506,404 

5,7279 

262.99 

114.0 

264.86 

263.61 

1,061,918 

4,147.6 

260 85 

116.0 

170.66 

169.74 

670,474 

2,660.9 

250.09 

118.0 

109.72 

106.20 

421,968 

1,731.3 

243 73 

116.4 

99.75 

99.26 

363,266 

1.575.3 

243.31 

118.8 

9037 

69.94 

346,920 

1,428.3 

242.89 

119.2 

62.02 

81.64 

314,600 

14297.5 

242.47 

119.6 

73.60 

73.26 

282,061 

1,166.4 

242.03 

120.0 

65.33 

66.02 

260,136 

1,036.5 

241.57 

120.4 

57.39 

67.12 

222,727 

910.5 

244.61 

120.8 

50.16 

49.91 

197,246 

796.5 

247.04 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131,574 

519.3 

253.36 

122.0 

25.39 

25.27 

103.660 

406.5 

256 14 

122.4 

1963 

1953 

81.296 

314 0 

258 88 








February 14,1993 


Interfaces 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 

Interfaces 



i_i 


7.M 



_364.85 (n, J 
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4m 

IMLMI.0I-IA. Of# 


r=i 


i -i 


<1.004.18 In.) 


^ Forward Miiri Heta 


Chemical 




KxH Con* Plan* 





February 14,1993 


r 

'' Engine Name: 

Class of Engine: 


Technology Development 


Space Shuttle Redesigned Solid Rocket Motor 
Solid Fuel 


Chemical 



February i 4 ,1993 Advanced Development Plan 




Figure 82. 


Output for NERVA Derived Nuclear 
Thermal Rocket Propulsion System 



NTRND Propulsion System 
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March 30,1993 


Background Information 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


■ Background 

Representative background data for the NTPNE will be incorporated at a future date. 


Comments 

No comments. 


Sourc^ nCeS Rover/NERVA-Derived Near-Term Nuclear Propulsion, FY92 Final Report, October 22, 1992 (Final report of 

Rocketdyne contract with NASA-LeRC); Unpublished Rocketdyne data. 


Date: Unpublished data as of March 1993. 

Entered by: Dan Levack 



March 30,1993 


Propulsion System General Data 



Creation Date 


3/7/93 


Modification Date 


3/30/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 

Oxidizer l None — 

Fuel iLiquid Hydr ogen 


Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 
TVC Method 

Dlmensions^■™"■" | " l "" ,, ™■™™ ,,,, ■ 

Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 


■ Engine Thrust Data, Ibf 

Nominal 
Maximum 
Minimum 


Nuclear 


- 

Fission Reactor 


Nuclear Thermal i IFIsslon weacror 
Thermodynamic Expansion of Hot Gas 
INTRND 

I Space Transfer 

I Conceptual Engine (Rocketdyne Study 


[^1^ m?[i 



2-19-93 


s ar 


e 1 

this syst 






300.01 


iGimbal 


387.0( 
119.01 
9,570^01 


Vacuum 










March 7,1993 


Engine Performance 1 


Engine Name: Nuclear Thermal Rocket, NERVA Derivative 

Class of Engine: Nuclear Thermal 


Fission Reactor 


Fuel iLiquid Hydrogen _ 

Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 
Engine Thrust Data-^— 

Nominal 

Maximum 


Minimum 


Thrust data in units of Ibf 


784.01 

300.01 



Vacuum 

50 , 000.01 





• Specific Impulse Datai^ 

@Nominal Thrust I — 

@Maxlmum Thrust I 

@Mintmum Thrust I 

Specific Impulse data in units of seconds 


Vacuum 

852.00 


Engine Restarts' 
Design 

Demonstrated 




'Engine Reliability, sec 
Design 

Demonstrated 


16,201 



Nozzle Data 


Bell, Slotted Tubular Wall/Radiation 


Length On) 

Diameter (sq. in) 
Throat Area (sq. in) 
Exit Area (sq. in) 
Expansion Ratio 



242.001 

1 

1 


118.00 


36.43 


1 10 , 927.8 


300.00 





March 7,1993 


Engine Performance 2 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 
Engine Mass (Ibm)^"^^^™^^ 

Total Mass w/TVC I 

Total Mass wo/TVC I 


9 . 570.1 

9 . 530.1 


Fission Reactor 



TVC' 


Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 





Engine Cycle 


Type 


popping 


Pressures, psia— 

— Fuel Turbopump 
Min Pump Inlet 
Turbine Inlet 



2 , 350.0 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 






Diameter- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in inches 


118.1 
119 J 


174 J 


Engine Component Masses, lbm—“^™ 

Component Mass. Ibm 

Reactor Assembly 
(Includes Pressure Vessel and 
Internal Shield) 
Chamber/Nozzle 
Turbopump 
Lines and Controls 


7,310 


1,470 

230 

560 






March i 3 ,1993 Start-Up/Shutdown Profiles 






March 7,1993 Start-Up/Shutdown Profiles 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 





March 7,1993 Start-Up/Shutdown Profiles 






March 13,1993 


Interfaces 















March 7,1993 


Technology Development 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 





March 7, 1993 


Engine Name: 
Class of Engine: 


Advanced Development Plan 


Nuclear Thermal Rocket, NERVA Derivative 
Nuclear Thermal Fission Reactor 


Advanced Development Plan 



Figure 83. 


Field Definitions of the File 
“Prop System DB” 



Field Name 

Record Number 
Creation Date 

Modification Date 


Field Typ e 
Number 
Date 

Date 


Formula / Entry Option _ 

Serial Number with Current Value: “11" Increment: "1" 

Auto-enter the: "Creation Date" . , 

Prevent data that is automatically entered from being changed. 

Auto-enter the: "Modification Date* 

_ « . . ._ 1 ^ antorfiH 




a ft ■ .1 


Propulsion Type 
Class of Engine 


Text 

Text 


Value List 
Cryogenic Liquid 
Hydrocarbon Liquid 
Storable liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 


Engine Name 

Text 

Acronym 

Text 

Application 

Text 

Manufacturer 

Text 

Program Status 

Text 

Manrated 

Text 

Mixture Ratio (0:F) Engine 

Number 

Mixture Ratio (0:F) 

Chamber 

Number 

lOC/Date Studied 

Text 

Engine Cycle 

Text 

Nominal Chamber Pressure 

Number 

Min Inlet Pressure (Oxid) 

Number 

Expansion Ratio 

Number 

TVC Method 

Text 

Maximum Length 

Number 

Maximum Width 

Number 

Engine Mass (Ibm) 

Number 

Oxidizer 

Text 

Fuel 

Text 

Nom Sea Level Thrust 

Calculation (Number) 

Nom Vac Thrust 

Number 

Max Sea Level Thrust 

Calculation (Number) 

Max Vac Thrust 

Number 

Min Sea Level Thrust 

Calculation (Number) 

Min Vac Thrust 

Number 

Isp Sea Level 

Calculation (Number) 

Isp Vacuum 

Calculation (Number) 

Engine Background 

Text 

Background Comments 

Text 

Reference Source 

Text 

Date of Reference 

Text 

Entered by 

Text 


* If (Norn Vac Thrust > 0, Norn Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

» If (Max Vac Thrust > 0, Max Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

- If (Min Vac Thrust > 0 t Min Vac Thrust - 11.545353 * 
NozzleDiameter A 2,"") 

« Isp SL Norn Thrust 
. Isp Vac Nom Thrust 
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Field Name 


Field Type 


Formula / Entry Option 


Engine Design Life Starts 
Engine Design Life Sec 
Engine Design Life (Flights) 
Restart Capability 
Engine Design Restarts 
Engine Demo Restarts 
Design Rel (Starts) 

Design Rel (Sec) 

Demo Rel (Starts) 

Demo Rel (Sec) 

Isp SL Nom Thrust 


Number 

Number 

Number 

Text 

Number 

Number 

Calculation (Number) = Engine Design Life Starts 
Calculation (Number) * Engine Design Life Sec 
Number 
Number 

Calculation (Number) = If (Nom Vac Thrust > 0 , Isp Vac Nom Thrust * Nom Sea Level 

Thrust / Nom Vac Thrust,"") 


Isp Vac Nom Thrust Number 

Isp SL Max Thrust Calculation (Number) « If (Max Vac Thrust > 0, If (IspVacMaxThrust > 0, IspVacMaxThrust 

* Max Sea Level Thrust / Max Vac Thrust, "")," *) 


IspVacMaxThrust Number 

Isd SL Min Thrust Calculation (Number) * If (Min Vac Thrust > 0, If (Isp Vac Min Thrust > 0, Isp Vac Min 

P Thrust * Min Sea Level Thrust / Min Vac Thrust, *■),■*) 


Isp Vac Min Thrust 
NozzleType 
Nozzle Length 
NozzleDiameter 
Nozzle Throat Area 
Nozzle Exit Area 
Nozzle Expansion Ratio 
Throttle Ratio SL Max 
Throttle Ratio Vac Max 
Throttle Ratio SL Min 
Throttle Ratio Vac Min 
Max OX Pump Pres 
Max Fuel Pump Pres 
Nom OX Turbine Pres 
TVC Mass 

Max Gimbal Angle (deg) 

Max Gimbal Rate 

Nominal Length 

Stowed Length 

Extended Length 

Extended Length Max 
Gimbal 

Nozzle Exit Diameter 
Maximum Diameter 
Max Diameter Max Gimbal 
Total Mass TVC 
Total Mass w/o TVC 
Start Up Sequence 
Shutdown Sequence 
Thrust Startup Profile 
Thrust Shutdown Profile 
Isp Startup Profile 


Number 

Text 

Number 

Number 

Number 

Calculation (Number) = Nozzle Expansion Ratio * Nozzle Throat Area 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) = Maximum Length 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 
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Field Name 

Isp Shutdown Profile 
Flow Startup Profile 
Flow Shutdown Profile 
O/F Startup Profile 
OIF Shutdown Profile 
Technology Development 
Adv Development Plan 
Interface 1 
Interface 2 
Interface 3 


Field Type 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Formula / Entry Option 


Engine Type 
Nom Fuel Turbine Pres 
Min Inlet Pressure (Fuel) 
Return Where? 


Text 

Number 

Number 

Calculation (Number) 


Which Data Entry? Calculation (Number) 


Class Type Calc 

Engine Component Masses 

Grain Design 

Noz Submergence Ratio 

Prop Material 1 

Prop Material 2 

Prop Material 3 

Prop Material 4 

Prop Material 5 

Prop Material 6 

Prop Material 7 

Prop Weight Percent 1 

Prop Weight Percent 2 

Prop Weight Percent 3 

Prop Weight Percent 4 

Prop Weight Percent 5 

Prop Weight Percent 6 

Prop Weight Percent 7 

Prop Function 1 

Prop Function 2 

Prop Function 3 

Prop Function 4 

Prop Function 5 

Prop Function 6 

Prop Function 7 

Burn Rate 


Calculation (Text) 

Picture/Sound 

Text 

Number 

Calculation (Text) 

Calculation (Text) 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Number 


. HfClass of Engine * 'Cryogenic Liquid' OR Class of Engine = 
Hydrocarbon Liquid' OR Class of Engine » 'Storable Liquid , 17, 
((Class of Engine - 'Solid Fuel'. 46, H(Class of Engine - Hybrid 
3RB*. 75, if(Class of Engine * 'Nuclear Thermal" OR Class of 
Engine - 'Nuclear Electric' OR Class of Engine - “Nuclear Electric , 
104, if(Class of Engine » 'Exotic',133,5))))) 

= (((Class of Engine = 'Cryogenic Liquid* OR Class of Engine = 
•Hydrocarbon Liquid' OR Class of Engine = Storable Liquid 8, 
WCIass of Engine - 'Solid Fuel', 12, if(Class of Engine = Hybrid 
SRB*. 13, K(Class of Engine = 'Nuclear Thermal" OR Class of 
Engine « "Nuclear Electric" OR Class of Engine * Nuclear Electric , 
14, If (Class of Engine - 'Exotic', 15,5))))) 


Cn/ilna 


« Oxidizer 
» Fuel 
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Field Name 

Burn Rate Temp 
Burn Rate Pressure 
Burn Rate Exp 
Burn Time 
Action Time 
Max Exp Op Press 
Max Op Press 
Burn Time Avg Press 
Action Time Avg Press 
Max Exp Op Thrust Vac 
Max Op Thrust Vac 
Burn Time Avg Thrust Vac 
Action Time Avg F Vac 
Burn Time Impulse Vac 
Action Time Impulse Vac 
Action Time Avg F SL 

Max Exp Op Thrust SL 

Max Op Thrust SL 


Field Type Formula / Entry O ption 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) = Nominal Chamber Pressure 
Number 
Number 
Number 
Calculation 
Calculation 
Calculation 
Calculation 


(Number) 

(Number) 

(Number) 

(Number) 


Calculation (Number) 
Calculation (Number) 


Burn Time Avg Thrust SL Calculation (Number) 


Burn Time Impulse SL 

Action Time Impulse SL 

Press Startup Profile 
Press Shutdown Profile 
Burn Time Avg Isp SL 


Calculation (Number) 

Calculation (Number) 

Picture/Sound 
Picture/Sound 
Calculation (Number) 


= Norn Vac Thrust 

= Bum Time Avg Thrust Vac * Bum Time 
s Action Time Avg F Vac * Action Time 

- If (Action Time Avg F Vac > 0, Action Time Avg F Vac - 11.545353 
♦NozzleDiameter A 2,"") 

* If (Max Exp Op Thrust Vac > 0, Max Exp Op Thrust Vac - 
11.545353 * NozzleDiameter A 2," *) 

, If (Max Op Thrust Vac > 0, Max Op Thrust Vac - 11.545353 * 
NozzleDiameter A 2, ’ B ) 

= If (Bum Time Avg Thrust Vac > 0, Burn Time Avg Thrust Vac - 
11.545353 * NozzleDiameter A 2, " “) 

* If (Burn Time Avg Thrust SL > 0, Burn Time Avg Thrust SL * Burn 
Time," *) 

-* if (Action Time Avg F SL > 0, Action Time Avg F SL * Action Time, 

■ 


= |f (Bum Time Avg Thrust Vac > 0, If (Burn Time Avg Isp Vac > 0, 
Burn Time Avg Isp Vac * Burn Time Avg Thrust SL / Burn Time Avg 

Thrust Vac, ■'). *") 


Burn Time Avg Isp Vac 
Action Time Avg Isp SL 


Action Time Avg Isp Vac 
Reactor Type 
Fuel Type 
Max Fuel Temp R 
Propellant Temp R 
Impulse Startup Profile 
Impulse Shutdown Profile 


Number 

Calculation (Number) 

Calculation (Number) 

Text 

Text 

Number 

Number 

Picture/Sound 

Picture/Sound 


. If (Action Time Avg F Vac > 0, If (Action Time Avg Isp Vac > 

0 Action Time Avg Isp Vac * Action Time Avg F SL / Action Time 

Avg F Vac.' *).*') 

* Isp Vac Norn Thrust 
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Figure 84. 


Field Definitions of the File 
“Prop System DB-Pictures” 



Field Name 
Record Number 

Class of Engine 


Field Typ e 
Number 

Text 


Formula / Entry Option 

Lookup: 'Record Number* In 'Prop System DB' when 'Engine 
Name" matches "Engine Name" 

If no match, copy:" " 

Value List: 

Cryogenic Liquid 
Hydrocarbon Liquid 
Storable Liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 

Lookup: 'Class of Engine' In 'Prop System DB“ when 'Engine 

Name* matches 'Engine Name* 

■ ■ 




_...... »■ 


Engine Name 

Acronym 

Text 

Text 

Lookup: 'Acronym* in 'Prop System DB' when 'Engine Name' 
matches 'Engine Name" 

If no match, copy: *' 



Engine Type 

Text 

Lookup: "Engine Type' In "Prop System DB' when 'Engine Name" 
matches "Engine Name" 



if no match, copy: ** 

Mixture Ratio (0:F) 

Number 

Lookup: 'Mixture Ratio (0:F) Engine* in 'Prop System DB" when 
'Engine Name' matches 'Engine Name' 



H no match, copy: " 

Nominal Chamber Pressure 
(psia) 

Number 

Lookup: "Nominal Chamber Pressure' In "Prop System DB' when 
'Engine Name' matches "Engine Name" 

If no match, copy: '" 

Expansion Ratio 

Number 

Lookup: 'Expansion Ratio' in 'Prop System DB' when "Engine 
Name* matches "Engine Name' 



If no match, copy:"' 

Norn Sea Level Thrust (Ibf) 

Number 

Lookup: "Nom Sea Level Thrust" In "Prop System DB when 
'Engine Name' matches 'Engine Name* 



if no match, copy: '* *' 

Nom Vac Thrust 

Number 

Lookup: 'Nom Vac Thrust' in 'Prop System DB' when "Engine 
Name* matches "Engine Name" 

If no match, copy: " 


Isp Sea Level (sec) 

Number 

Lookup: "Isp Sea Level' in "Prop System DB' when "Engine Name 
matches 'Engine Name' 



If no match, copy: "* 

isp Vacuum 

Number 

Lookup: "Isp Vacuum' in 'Prop System DB" when "Engine Name" 
matches "Engine Name" 

If no match, copy: " 


Maximum Length 

Number 

Lookup: "Maximum Length" in "Prop System DB" when "Engine 
Name* matches "Engine Name" 



If no match, copy: " "" 

Maximum Width 

Number 

Lookup: 'Maximum Width' in 'Prop System DB' when 'Engine 


Name* matches "Engine Name" 
if no match, copy: " ” 


Engine Mass 

Number 

Lookup: 'Engine Mass 0bm)' in 'Prop System DB' when "Engine 
Name' matches 'Engine Name" 

If no match, copy: "" " 



Engine Drawing 

Picture/Sound 


Engine Balance 

Picture/Sound 

» Engine Type 

Engine Type Calc 

Calculation (Text) 

Engine Class Clac 

Calculation (Text) 

a Class of Engine 


a 
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Field Name _ 

Action Time Avg F SL 


Field Type 
Number 


Formula / Entry Option _____ 

Lookup: 'Action Time Avg F SL' in 'Prop System DB' when 'Engine 


*Pnnina KlflmA 1 


Action Time Avg F Vac Number 


If no match, copy: 

Lookup: 'Action Time Avg F Vac' in 'Prop System DB" when 
‘Engine Name" matches 'Engine Name' 

If no match, copy: '* " 


Action Time Avg Isp SL 

Number 

Action Time Avg Isp Vac 

Number 

Action Time Avg Press 

Number 

Action Time 

Number 

Fuel 

Text 


Lookup: 'Action Time Avg Isp SL’ In 'Prop System DB" when 
'Engine Name* matches 'Engine Name' 

If no match, copy: " " 

Lookup: 'Action Time Avg Isp Vac' In 'Prop System DB' when 
'Engine Name" matches 'Engine Name" 

If no match, copy: " " 

Lookup: 'Action Time Avg Press' in "Prop System DB* when 
"Engine Name" matches "Engine Name" 

If no match, copy: “ '" 

Lookup: 'Action Time* in "Prop System DB* when 'Engine Name' 
matches "Engine Name" 

If no match, copy: ** ** 

Lookup: 'Fuel' In "Prop System DB" when “Engine Name" matches 

"Engine Name* 

If no match, copy: ” " 
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Appendix 


Use of Fortran Externals with 
Resolve™ and Excel™ 



USER GUIDE 
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Date: 


Fxternal Functions for Claris Resolve for the Macintosh written in K) R TRAN 
Smp™d w?,h Unguage Syslems FORTRAN version 3.0.1 and MPW versron 

3.2.3 

David W. Harris 
Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 
March 10,1993 


INFORMATION PROVlDbU IN i~H,S ^ V^s T^tHOUt'^ArANTY^Of'aNY 1 kIndNsITHER 

SJd/OR FITNESS FOR A PARTICULAR PURPOSE^. «n mis, be copied 

User guide. This User guide mey be copied and distributed J included.*11 files on the disk(s) must be copied 

ss rsss *• - 4 > ™* u “ r e “ idt -» - 

distributed to, pnXi^ ^ Res0 ,« „ regi , lt «d Ir.dent.rlrs of O.ns Coppomtion 

Macintosh is a registered trademark of A PPje Computer, ^corporate . 

This document was created using Microsoft Word for the Macintosh. 


Purpose: 


This User euide is to lead a person with limited knowledge of Macintosh 
nroeramine through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 

FORTRAN compiler 

detailed information refer to the Language Systems FORTRAN Reference Man 
nnri tr, the Resolve User Guide and Claris Technical Note. 


INTRODUCTION 


riaHs Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
o D<>cf.ivr> pvtpmal function with this guide you must have the following. 


1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup. f 

3. A FORTRAN subroutine FHook. f 

4. Your FORTRAN subroutine 

5. Funcname application 


Because of the required interface between Resolve and an external function an 
interface oroeram or "hook" had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 


Pqop 1 nf1D 
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interface. This hook calls two FORTRAN subroutines, Setup, f and FHook. f . The 
Setup. f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function name cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup, f file. 
Executing this program will create a complete setup. f file ready for compiling and 
linking. FHook.f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
input(*) and output(lOO). The generic "C" hook was written to handle infinite input 
and 100 output variables. FHook. f can be used to manipulate the input and output 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 

The following is a set of steps that will allow you to create a Resolve external using 
the CHookc . c. o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 
Resolve script. 

STEP 1 Create a SetUp subroutine. To do this run the program Funcname. This program 

will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 

input variables to your subroutine. 

STEP 2 Launch MPW 

STEP 3 Open (File, Open...) and change your FORTRAN subroutine so that it meets the 

programing rules. 

Programing Rules 

• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or SAVE statements and the -saveall compiler option cannot be used to force 

static storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No character constants: a statement such as 

CHARACTER*26 myString myString = 'I paid my taxes on April 7.' 
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will cause a linker error. Using character* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


Create (File, Neil*) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f. The following function can be used as a boiler plate 


rnHp 


SUBROUTINE FHook(args,revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arg10,argil,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


f your subroutine needs other type of variables (real 4 » ^eger, 
*tc.) use the appropriate conversion function to avoid garbage from 

>eina Dassed. Here are some examples 


a = SNGL( args( 1 )) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 

argl = args(l) 
arg2 = args(2) 
arg3 = args (3) 
arg4 = args(4) 
arg5 = args (5) 


lfrom real*8 to real*4 
lfrom real*8 to integer*4 
lfrom real*8 to Integer*2 
l any to real*8 


l This is the setting of the subroutine 
{arguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,arglO,argil,argl2) 


revals(l) = arg6 
revals(2) = arg7 
revals(3) = arg8 
revals (4) = arg9 
revals(5) = arglO 
revals(6) = argil 
revals(7) = argl2 

return 

end 


IThis sets the output array 
l with the appropriate 
1 subroutine arguments. 


STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern.make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc. c. o in the OBJECTS sections. CHookc. c. o is the 
Resolve to FORTRAN hook. 


# File: 

# Target: 

# Sources: 

# Created: 


ResExtern.make 
ResExtern 

FHook.f Setup.f yoursub.f 

Friday , March 5, 1993 2:21:05 PM _ 
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OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 

ResExtern // ResExtem.make {OBJECTS} 

Link -t RsTl -c Rslv d 
{OBJECTS} a 

"{Libraries}"Runtime.o d 
"{Libraries}"Interface.o d 
"{FLibraries}"FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o d 
~o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
FORTRAN FHook.f -opt=l 
Setup.f.o / ResExtern.make Setup.f 
FORTRAN Setup.f -opt-1 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 

Running Create Build Commands 

1. Select Create Build Commands... under the Build menu. 

2. In Program Name type the name of the file used in the filejext argument of 
the GET external function. In the above example the Program Name is 

ResExtern. 

3. Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup.f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name".make (in the above example it would be 
ResExtern.make) and change the following: 

Add CHookc. c. o in the front of the objects list. 

Remove: -w -f -srt -ad 4 
Change the APPL to RsTl 
Change the '????' to Rslv 
Remove the lines: 

Echo "Include d"{FLibraries}Fresources.rd";" > 

"{FLibraries}Resource.inc" 

Rez "{FLibraries}Resource.inc" -a -m -o “filename." 

FSIZE “filename." 

Remove the following libraries: 

"{FLibraries}"FSANELib.o d 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 
abort, but there will be a warning. 

STEP 6 Run Build... under the Build menu. In the window type the program file name. 

STEP 7 Correct the code to remove any compile and linker errors and repeat STEP 6. 

STEP 8 Quit MPW 
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STEP 9 Move the compiled function file into the same folder as the Resolve application. 

STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 

Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

GET EXTERNAL "sResExtern" . 

Replace the word ResExtern with the name of your compiled function file. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 

defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (ie. x = 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-1. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 
spreadsheet. The return values will be placed in cells c 1, C2, C3, C4, C5, C6 
and C7 as directed by the PUT x statement. 

DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 

FOR n = 0 TO 6 

x = ResExtern;FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of: 

“ ” Page 5 of 10 Printed: Wednesday, March 10, 1993 


FORTRAN external functions for Claris Resolve and Language System FORTRAN 



• FORTRAN Function 

• Resolve worksheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 


No special errors. 


Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 
compiler settings. Delete all of the .f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 

of the spreadsheet. 

2. Can not open function. . . , ... 

Check the function name in the script to be sure it is the same name as specified 

in Setup, f. , „ .... 

Check that the function file is in the same folder as the Resolve application. 

Use Open • Tool : mySFGetFile external function. See next section for more 

information. 


Open■Tool t mySFGetFile 

A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard "Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or open the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

folder 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open • Tool file into the Externals folder. 

Now the script line: 

GET EXT ERNAL ":Externals:Open•Tool" ___ 
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will load the Open-Tool :mySFGetFile function. The form of the function is: 

Open -Tools mySFGetFile(<prcanpt string>,"<file typel>","<file 
type2>","<file type3>","<file type4> ) 

were file typel, file type2 / file type3 and file type4 are file type filters 
fe e PICT APPL, TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In thecase of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mvSFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a, b,c,d,e,n,x,fullpath 
a - B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL "{ExternalssOpen-Tool" 

GET EXTERNAL "ResExtern” 

FOR n = 0 TO 4 

x = ResExternsFHookCajbjC/djejn) 
PUT X INTO MAKECELL(3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open-ToolsmySFGetFile'("Please 

ResExtern : , RsTl , , , ) 

GET EXTERNAL fullpath 


END IF 
IF(y = 12) 


SOUND EFFECT "Monkey" 
SOUND EFFECT "Monkey” 
SOUND EFFECT "Monkey" 
MESSAGE SError() 

ABORT 


find 


END IF 
END ERROR 


The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 

applications. 


FPU OPTIONAL CODE 


Language System FORTRAN has the option of compiling your code to take 
advantage of the type of machine and the presence of an FPU. Because his is 
compiler option Language System FORTRAN will allow for FPU optional code 
generation. Meaning that the same external function can run on a Plus as well as a 
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STEP 20 
STEP 21 

STEP 22 


Quadra 950 and take advantage of the FPU. To do this requires minimal additional 
programing. 

Duplicate your subroutine and give the file a different name than the original. 

Modify this file by renaming the main subroutine and all lower subroutines and 
subroutine calls. Failure to do this will cause a linker warning about duplicate 
names and could cause run time problems. 

Modify the FHook.f file by adding the following lines between the last declaration 
and the first operational line: 


STEP 23 


11MP Inlines.f 

INCLUDE ' {MPW} Interfaces:FIncludes:OSUtils.f' 

INCLUDE ' {MPW}Interfaces:FIncludessTraps.f 1 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr — NewPtr(sizeof(SysEnvRec)) 

OSErr — SysEnvirons(curSysEnvVers , SysEnvRecPtr) 


Modify the FHook.f file prior to the subroutine call by adding an if-then statement 
decking the variable SysEnvRecPtr*. hasFPU. In the TRUE section of the if put 
the call to the new subroutine. In the FALSE section put the original call. Save 

FHook.f. 


The FHook.f program in STEP 4 would now look like this: 


SUBROUTINE FHook(args,revals) 

REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argl1/argl2 


I IMP Inlines.f 

INCLUDE 1 {MPW}Interfaces:FIncludes:OSUtils.f 
INCLUDE '{MPW>Interfaces:FIncludessTraps.f‘ 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof(SysEnvRec)) 

OSErr = SysEnvirons(curSysEnvVers,SysEnvRecPtr) 


c 

c 

c 

c 

c 

c 

c 

c 


r your subroutine needs other type of variables (real*4, integer, 
: c . } use the appropriate conversion function to avoid garbage from 

jina passed. Here are some examples 


a = SNGL(args(1)) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args (4) = DBLE (d) 


! from real*8 to real*4 
l from real*8 to integer*4 
l from real*8 to Integer*2 
lany to real*8 


arql = args(1) IThis is the setting of the subroutine 

arg2 = args(2) 1arguments. Add more statements as 

arg3 = args(3)_ las needed. ____ 
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c 

c 


arg4 = args(4) 
arg5 = args(5) 

Calling your subroutine. Change this call as necessary to match 
your subroutine. 

if(SysEnvRecPtr".hasFPU) then 
c Use FPU 

call yoursub81(argl,arg2,arg3,arg4,arg5, 

s, arg6, arg7,arg8,arg9,argl0,argil, argl2) 


c NO FPU 

call yoursub(argl,arg2,arg3,arg4,arg5, 

& arg6, arg7, arg8, arg9, arglO, argil, argl2) 

end if 

revals(l) = arg6 
revals(2) = arg7 
revals(3) = arg8 
revals(4) = arg9 
revals(5) = arglO 
revals(6) = argil 
revals(7) = argl2 

return 
end 

STEP 24 Modify the .make file by adding the new subroutine file in the compile list. Do this 

by copying the old subroutine compile directive and pasting it to the end of the 
compile list. Change the old subroutine name to the new name. Add to the compiler 
options of the new subroutine -MC68020 -MC-68881. These new options will take 
advantage of 68020 and above CPUs with 68881 and above FPUs This covers 
most of the Mac IIs and the new high end Macs. The new mid range Macs may or 
may not have an FPU. Add the new subroutine object file name in the objects list 

and save the file. 

The Make file in the first STEP 5 would now look like this: 


IThis sets the output array 
lwith the appropriate 
1 subroutine arguments. 


# Files 

# Target: 

# Sources s 

# Created: 


ResExtern.make 
ResExtern 

FHook.f Setup.f yoursub.f 
Friday, March 5, 1993 2:21:05 PM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o yoursub81.f.o 


ResExtern // ResExtern.make {OBJECTS} 

Link -t RsTl -c Rslv d 

{objects} a 

,, {Libraries} ,, Runtime.o d 
"{Libraries}"Interface.o d 
"{FLibraries}"FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o a 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
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FORTRAN FHook.f -opt~l 
Setup.f.o / ResExtern.make Setup.f 
FORTRAN Setup.f -opt=l 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 
yoursub81.f.o / ResExtern.make yoursub81.f 
FORTRAN yoursub81.f -opt=l -MC68020 


-MC68881 


STEP 25 Re-run the make file by using the Build... under the Build menu. 

This new external function will work on all Macs. If the Mac has an FPU the 
performance of the function will be increased over the original function created in 

STEP 1 throueh STEP 19. 
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USER GUIDE 


Subject: 


External Functions for Claris Resolve for the Macintosh written in FORTRAN 
complied with Absoft MacFortran II version 3.1 and MPW version 3.2 


Written By: David W. Harris 

Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 

Date: February 10,1993 


INFORMATION PROVIDED IN THIS 

EXPRESSEDORHHPUED JNCLWHNG BUT NOT UMrTED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY 
AND/OR FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire nsk as to the accuracy and the use of this 
User guide This User guide may be copied and distributed subject to the following conditions: 1) A I text must be co pi ed 
wUhout modification and all pages must be included; 2) If software is included, all files on the d,sk(s) must be: copied 
without modification; 3) All components of this User guide must be distributed together, and 4) This User gui e y 

distributed for profit. , . r n 

Claris, Claris Resolve and Resolve are registered trademarks of Clans Corporation 

Macintosh is a registered trademark of Apple Computer, Incorporated. 

MacFortran II is a trademark of Absoft Corporation. 

Tit.'. Ann intotif was created usine Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Macintosh 
programing through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
with the Absoft FORTRAN compiler and Claris Resolve. For more detailed 
information refer to the MacFortran II Reference Manual and to the Resolve User 
Guide and Claris Technical Note. 


INTRODUCTION 

Claris Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Resolve external function with this guide you must have the following; 

1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup . f 

3. A FORTRAN subroutine FHook . f 

4. Your FORTRAN subroutine 

5. Funcname application 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Plus,SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 


STEP 2 
STEP 3 


Because of the required interface between Resolve and an external function an 
interface program or "hook” had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
interface. This hook calls two FORTRAN subroutines. Setup. £ and FHook. f. The 
Setup . f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function nam « cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup . f tile. 
Executing this program will create a complete Setup, f file ready for compiling an 
linking. FHook. f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
inputf*) and output(lOO). The generic "C" hook was written to handle infinite inpu 
and 100 output variables. FHook. f can be used to manipulate the input and outpu 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 


The following is a set of steps that will allow you to create a Resolve external using 
the CHookc.c.o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 

Resolve script. 

Create a Setup subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 

input variables to your subroutine. 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 

• No global or static storage: FORTRAN programs can have no common , block 
data, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 
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• No run time error messages: some compiler options such as the "Check array 
boundaries' 1 option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 


• No character constants: a statement such as 

CHARACTER*26 myString myString 38 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


Create (File, Neill) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f. The following function can be used as a boiler plate 

code. 


SUBROUTINE FHook(args,revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argil,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL(args(l)) 
b * IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 


I from real*8 to real*4 
Ifran real*8 to integer*4 
l from real*8 to Integer*2 
!any to real*8 


argl = args(l) 
arg2 « args(2) 
arg3 = args(3) 
arg4 = args(4) 
arg5 = args(5) 


IThis is the setting of the subroutine 
!arguments. Add more statements as 
ias needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl , arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,argl0,argil,argl2) 


revals(1) 
revals(2) 
revals(3) 
revals(4) 
revals(5) 
revals(6) 
revals(7) 


= arg6 
= argl 
= arg8 
= arg9 
= arglO 
= argil 
= argl2 


IThis sets the output array 
Iwith the appropriate 
!subroutine arguments. 


return 

end 
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STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern.make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc. c. o in the OBJECTS sections. CHookc. c. o is the 

Resolve to FORTRAN hook. 


# Files 

# Target: 

# Sources: 

# Created; 


ResExtern.make 
ResExtern 
FHook.f Setup.f 

Monday, January 18, 1993 9;16:12 AM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 


FFLAGS = -q -k -N14 


ResExtern // ResExtern.make {OBJECTS} 
Link -t 'RsTl' -c Rslv d 
{OBJECTS} d 

"{Libraries}"Runtime.o d 
"{Libraries}"Interface.o d 
"{FLibraries}"f77math.o d 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
f77compiler {FFLAGS} FHook.f 
Setup.f.o / ResExtern.make Setup.f 
f77compiler {FFLAGS} Setup.f 
yoursub.f.o / ResExtern.make yoursub.f 
f77compiler {FFLAGS} your.sub.f 


Running Create BuildCommandS 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Program Name type the name of the file used in th tfilejext argument of 
the get external function. In the above example the Program Name is 
ResExtern. 

3 Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup.f as well as your 

subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name".make (in the above example it would be 

ResExtern.make) and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Add CHookc. c . o in the front of the OBJECTS list. 

Remove the line: filename ff filename.make Duplicate -r -y 
"{FLibraries}F77mrwe.o" filename 
Change the APPL to 1 RsTl ’ 

Change the '????' to ’ Rslv' 
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STEP 6 
STEP 7 


Remove -f -model far 
Remove the following libraries: 

^ - — m % t< A 


"F77mrwe.o d 
"frtO.o d 


"{FLibraries 
"{FLibraries. 

"{FLibraries}"f77io.o d ... 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 

abort, but there will be a warning. 

If Linker reDorts 32K iump errors add -N8 and -Nil to the fflags list. 


Run Build... under the MacFortran menu. In the window type the program 
file name. 

Correct the code to remove any compile and linker errors and repeat STEP 6. 


STEP 8 
STEP 9 


Quit MPW 

Move the compiled function file into the same folder as the Resolve application. 


STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 

Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

get EXTERNAL "sResExtern" , . .._ 

Replace the word ResExtern with the name of your compiled function tile. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 

defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (le. x- 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-l. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 

spreadsheet.The return values will be placed in cells Cl, C2, C3, C4, C5, C6 

and C7 as directed by the PUT x statement. 


DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 
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FOR n = 0 TO 6 

x * ResExtern:FHook(a,b,c,d,e,n) 

POT x INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of. 

• FORTRAN Function 

• Resolve worksheet 


To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 

No special errors. 

Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 

compiler settings. Delete all of the .f.o object files and re-run the B U i I d. 

2. Cannot make 32K jump. Add -N8 and -Nil to the FFLAGS list. Delete all of the 

.f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 

of the spreadsheet. 

2. Can not open function. 

Check the function name in the script to be sure it is the same name as specified 
in Setup. f. 
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Check that the function file is in the same folder as the Resolve application. 

Use Open -Tools mySFGetFile external function. See next section for more 

information. 


Open * Tool:mySFGetFile 


A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or<Dpen the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open • Tool file into the Externals folder. 

Now the script line: 

GET EXTERNAL " sExternalssOpen*Tool" 
will load the Open»Tool mySFGetFile function. The form of the function is: 

Open•ToolsmySFGetFile(<prompt string>,"<file typel>","<flie 
type2>","<file type3>","<file type4>") 

were file typel, file type2, file type3 and file type4 are file type filters 
(e e PICT APPL TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In the case of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mvSFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a,b,c,d,e,n,x,fullpath 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL "5 Externals:Open•Tool" 

GET EXTERNAL "ResExtem" 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 
PUT x INTO MAKECELL( 3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open -Tool:mySFGetFile'("Please find 

• >■ it— _i ii it n it ti ii it \ 

ResExtem : , RsTl , , f ) 

GET EXTERNAL fullpath 

END IF 
IF(y = 12) 
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SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey” 

MESSAGE SError() 

ABORT 

END IF 
END ERROR 

The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to Files and 

applications. 
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USER GUIDE 


Subject: 


External Functions for Microsoft Excel for the Macintosh written in FORTRAN 
complied with Absoft MacFortran II version 3.1 and MPW version 3.2 
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Rockwell International 
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Purpose: 


This User guide is to lead a person with limited knowledge of Mac programing 
through the steps necessary to turn a FORTRAN subroutine into an Excel external 
function. This guide assumes that the user has a little familiarity with the Absoft 
FORTRAN compiler and Microsoft Excel. For more information refer to the 
MacFortran II Reference Manual and to the Excel User Guide, Function Reference 
and Microsoft Application Note: ME0333. 


INTRODUCTION 

Microsoft Excel versions 2.2 and above have the ability to call external code 
resources that can be used as spreadsheet functions. A "Code Resource is an 
assembly language code with the proper data handling that allows it to be called or 
linked to other code. There are many different types of code resources but for this 
application the resource needs to be type CODE. Apple Technical Note #256 has 
additional information on code resources but it is not necessary to read if the 
examples of this note are followed. 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Pl’us,SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 
STEP 2 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 


• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Excel. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No run time error messages: some compiler options such as the "Check array 
boundaries" option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 

• No character constants: a statement such as 

CHARACTER* 26 myString myString = 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with DATA 
statements or char () functions can be used to create a character constant. 


STEP 3 


Create (File, New) an Excel to FORTRAN interface function. The following 
function can be used as a boiler plate code. This example program is saved as 

xfunc.f. 


PASCAL INTEGER*4 FUNCTION MAIN(in) 


c This function works as a Integer function in EXCEL with "KK” type_text 


STRUCTURE /inlist/ IThis is the input list from Excel. 

INTEGER*2 row 
INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 


STRUCTURE /outlist/ IThis is the output list from the 

INTEGER*2 row lFORTRAN program. 

INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 
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RECORD /inlist/ in 
RECORD /outlist/ out 

c This is the declaration of arguments for the FORTRAN subroutine. 


real*8 argl,arg2,arg3,arg4,arg5,arg6 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid passing garbage 

Here are some examples 


a = SNGL(ary(l)) 
b = IDINT(ary(2)) 
c = IIDINT(ary(3)) 
ary(4) = DBLE(d) 


tfram real*8 to real*4 
Ifrom real*8 to integer*4 
Ifrom real*8 to Integer*2 
jany to real*8 


axgl = in.ary(1) 
arg2 = in.ary(2) 
arg3 = in.ary(3) 


lThis is the setting of the subroutine 
larguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5,arg6) 


out.row = 3 
out. col =* 1 


I This sets the worksheet area. 
I Adjust as needed. 


out .ary (1) = arg4 l This sets the output array 

out.ary(2) = arg5 lwith the appropriate 

out.ary(3) = arg6 isubroutine arguments. 

c The last thing to do is set the function values to the structure 
c pointer. No need to change this statement. 


MAIN = LOC(out) 

return 

end 


The STRUCTURE in this function would be good for any combination of arguments 
where row*columns <= 100. The record declaration is necessary to assign the 
name "in" to the structure "inlist". The variables are now referred to with the 
prefix "in." (in. row, in. col, in. ary (1),...). The values in ary are arranged 

as such: 


ary(l) = row,, col, 
ary( 2) = row 1; col 2 


ary(m) = row,,col m 
ary(m+l) = row 2 ,col 1 


ary(n*m) = row n ,col m 
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STEP 4 


Create a Build script. Either use the following example Build script file (save as 
xfunc.make) as boiler plate or use the Create BuildCommandS menu. 

# File: xfunc.make 

# Target: xfunc 

# Sources: xfunc.f yoursub.f ... 

# Created: 

# Add to this OBJECTS list all necessary subroutines 
OBJECTS - xfunc.f.o yoursub.f.o 


FFLAGS = -q -N14 -k 


xfunc // xfunc.make {OBJECTS} 

Link -t XLLB -C XCEL -rt CODE=128 
{OBJECTS} d 

# This library list can be modified to 

# libraries 

"{Libraries}"Runtime.o 8 
■■ { T.i h rari es} " Interface.o d 
”{FLibraries}"F77stubs.o d 
"{FLibraries}"frt0.o d 
"{FLibraries}"f77io.o d 
"{FLibraries}"f77math.o d 

-o xfunc 


-m MAIN -sg main 8 
remove unnecessary 


xfunc•f.o / xfunc•make xfunc•f 

f77compiler {FFLAGS} xfunc.f 

# Repeat the next two lines for each subroutine and change 

# yoursub to each of the subroutine names 
yoursub.f.o / xfunc•make yoursub•f 

f77compiler {FFLAGS} yoursub.f 


Running Cr60t6 BuildConimnnds 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Program Name type the name of the file used in th efile^text argument of the 
REGISTER or CALL function. In the above example the Program Name is 
xfunc. 


3. in the Program Tgpe box select Code Resource 

4. In the box next to Creator put HCEL. (Note characters must be all upper case.) 


5. In the box next to Type put HLLB. (Note characters must be all upper case.) 



the box next to Main Entry Point type the name of the FORTRAN function, 
ust be all upper case. This is the name used in the resourcejext argument of the 

EGISTER or CALL function. In the above example the Main Entry Point is 




---“ Page 4 of 6 Printed: Wednesday, March 10,1993 

FORTRAN external functions for Microsoft Excel and Absoft MacFortran II 



STEP 

STEP 

STEP 

STEP 

STEP 

STEP 

STEP 


STEP 

STEP 

STEP 

STEP 


7. In the box next to Resource Type put C0DE=128 

8. Click on the Source Files... button and select the function and subroutines that will 
be linked together. The main function (the one called by Excel) must be first. In the 
above example xfunc. £ is the main program and yoursub. f is a subroutine. 

9. Click on CreateMake 

10. Open the file "Program Name" .make (in the above example it would be xf unc .make) 
and change the following: 

Add-N14 -k next to FFLAGS -q, separated with only a space. 

Change the word next to -sg to the same name as the -m option only all lower case. 
When this link is run any unnecessary libraries will cause a warning message. 
They will not cause a linker abort, but there will be a warning. The 
unnecessary libraries can be removed for the library list. (See above example) 

5 Run Build... under the Mac Fortran menu. In the window type the program 
file name. 

6 Correct the code to remove any compile and linkers errors and repeat STEP 5. 

7 Quit MPW 

8 Move the compiled function file into the Excel folder. 

9 Launch Excel 

10 Open a new Macro sheet. (File, Neill...) 

11 Create the following macro: 



fl 

1 

load 

_ — -. . . r - , rrir - - _ - ,.i- ir i- ir n in m - - * 

2 

-REGISTER!" Hfunc ","Mfl IN ","KK") j 

3 

-RETURNO | 


Replace the word Hfunc with the name of your compiled function file. 

12 Select cell A1 and then select Define Name under the Formula Menu. Select 

the Command button and type p in the box next to Key:. Click OK. Now 
pressing "option + 4 + p" will load the external function. 

13 Save this Macro sheet as load.Kfunc using Saue Rs... 

14 Press "option + 4 + p". This loads the external function. 

15 Press " + ' ". In A2 a number should be there, if not there is something wrong 

with the REGISTER arguments, the Build script or the interface code. Check for 
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consistency between names and arguments. Press " 4 + ' " again to return to 
normal display. 

STEP 16 Create your worksheet and select the appropriate output range for your function and 

type in a CALL function with load.Xfunc!$H$2asthe registerjext and the 
appropriate input range. Enter the function by pressing "# + enter" (This entry 
method is necessary for any Excel array function). The following is an example for 
a function that has a 3 cell input range and a l-by-3 (rows by columns) output 
range: 



fl 

1 

1 

2 

2 

3 

3 

4 

* 

A 

5 

= CRLL(load.xfunc!$R$2,R1 :R3) 

6 


7 



The double box is the selected area. Cells A5, A6 and A7 are now the return array. 
STEP 17 Save the worksheet. 

STEP 18 Select Define Name under Formula menu 

In the N a m e : box type autoload 

In the Refers to: box type load.xfunclload 

Click Add 
Click Ok 

STEP 19 Save worksheet. 

Now when the worksheet is opened the Macro sheet will automatically be opened 
and executed, loading the external function. 

After following this procedure you will have three files to keep track of: 

• FORTRAN Function 

• Excel worksheet 

• Excel Macro sheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 
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